Select Code to Download

package Foo;
sub new { 
...
    &_handle_parsed_href( $parsed_href );
}

sub _handle_parsed_href {
  my ( $self, $parsed_href ) = @_;
  push @{$self->{PARSED}}, $parsed_href;
}