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