+sub dump {
+ my ($self, $object) = @_;
+
+ $self->reload_object($object);
+
+ my $tree = $self->as_tree($object, exclude => sub { ref($_[0]) !~ m/::RequirementSpecTextBlock$/ });
+ $tree->{pictures} = [ map { SL::Clipboard::RequirementSpecPicture->new->dump($_) } @{ $object->pictures } ];
+
+ return $tree;
+}
+