uhuuh black magic.. i like it (i used with not full understanding here, check some useful links).

Why pass the package name? you have already at your disposal (on > 5.16 you have __SUB__ too, view perldata):

sub printSimbleTable{
        #my $package = shift;
        print "I am in printSimbleTable of: ".__PACKAGE__."\n";
        no strict qw (refs);
        print map {"$_\n"}   keys %{__PACKAGE__."::"}

}
[download]

HtH
L*