Select Code to Download

sub traversal {
  my $self = shift;
    my @nodes;
...
    }
    return @nodes;
}

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