diff options
| -rw-r--r-- | challenge-028/lubos-kolouch/perl5/ch-2.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-028/lubos-kolouch/perl5/ch-2.pl b/challenge-028/lubos-kolouch/perl5/ch-2.pl index 47252e98bc..b7735db222 100644 --- a/challenge-028/lubos-kolouch/perl5/ch-2.pl +++ b/challenge-028/lubos-kolouch/perl5/ch-2.pl @@ -26,8 +26,13 @@ use feature qw/say/; use Acme::Cow; use DateTime; +my $secret = shift || 0; + my $cow = new Acme::Cow; my $dt=DateTime->now; $cow->say($dt->hms); + +# secret undocumented parameter to make the cow think! +$cow->think if $secret; $cow->print(); |