Help for this page

Select Code to Download

Select or download this

my @subs;
{
...
    my $st = $class . '::';
    @subs = keys %$st;
}