diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-04-10 11:11:12 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-04-10 11:11:12 +0100 |
| commit | 91ff8883bd8bf7642d8d986e1455692b1edd36c3 (patch) | |
| tree | 9654ba43d820a565e94617411395952e5d287468 | |
| parent | 14379e2e721c45e9c83ad3c4cc26594334839097 (diff) | |
| download | perlweeklychallenge-club-91ff8883bd8bf7642d8d986e1455692b1edd36c3.tar.gz perlweeklychallenge-club-91ff8883bd8bf7642d8d986e1455692b1edd36c3.tar.bz2 perlweeklychallenge-club-91ff8883bd8bf7642d8d986e1455692b1edd36c3.zip | |
more docs
| -rw-r--r-- | challenge-107/james-smith/perl/ch-2.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-107/james-smith/perl/ch-2.pl b/challenge-107/james-smith/perl/ch-2.pl index bf00dba212..edaefe1661 100644 --- a/challenge-107/james-smith/perl/ch-2.pl +++ b/challenge-107/james-smith/perl/ch-2.pl @@ -22,4 +22,17 @@ use Calc_Use; say join "\n ",'Calc_Require:', sort keys %Calc_Require::; say ''; say join "\n ",'Calc_Use:', sort keys %Calc_Use::; +say ''; + +## If we want to hide the "fake" methods (import/BEGIN) we +## can use grep/can to do so + +say join "\n ",'Calc_Require:', sort + grep {Calc_Require->can($_)} + keys %Calc_Require::; +say ''; +say join "\n ",'Calc_Use:', sort + grep {Calc_Use->can($_)} + keys %Calc_Use::; +say ''; |