Select Code to Download

sub traversal {
  my $self = shift;
...
    @nodes = ( $self );
    push @nodes, map { $_->traversal( ) } @{ $self->{children} };
    return @nodes;

sub traversal {
  my $self = shift;
...
        $node->traversal();
    }
    return @nodes;