Select Code to Download

package SimpleExample;

...
    # ... bla bla bla ...
}

sub list_tests {
    my $class = ref($_[0]) || $_[0];
...
    return keys %tests;
}