Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $foo = Foo->new();
$foo->runTests();

sub runTests { 
    my ($self) = @_;  
...
        $self->$symname() if $self->can($symname); 
    } 
}

sub runTests3 {
    my ($self) = @_;
...
        $self->$symname() if $self->can($symname);
    }
}