diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-04-05 15:13:12 -0500 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-04-05 15:13:12 -0500 |
| commit | abe2973b4270201be719ea18ea83cd442adaa0e6 (patch) | |
| tree | 88e7255085ca6d56247a99a21a3689ff03c8483a /challenge-107 | |
| parent | 67650a548ed89d7017cc9070c77dc9cfc83dc1d8 (diff) | |
| download | perlweeklychallenge-club-abe2973b4270201be719ea18ea83cd442adaa0e6.tar.gz perlweeklychallenge-club-abe2973b4270201be719ea18ea83cd442adaa0e6.tar.bz2 perlweeklychallenge-club-abe2973b4270201be719ea18ea83cd442adaa0e6.zip | |
Correct output
Diffstat (limited to 'challenge-107')
| -rwxr-xr-x | challenge-107/wlmb/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-107/wlmb/perl/ch-2.pl b/challenge-107/wlmb/perl/ch-2.pl index dae450a85e..a284c11a2d 100755 --- a/challenge-107/wlmb/perl/ch-2.pl +++ b/challenge-107/wlmb/perl/ch-2.pl @@ -12,7 +12,8 @@ die 'Use: ./ch-2.pl package [other package] [...]' unless @ARGV; foreach my $package(@ARGV){ eval "require $package"; die $@ if $@; + say "Methods of $package"; foreach my $key(sort keys %{"${package}::"}){ - say $key if defined &{"${package}::$key"}; + say "\t$key" if defined &{"${package}::$key"}; } } |