exercism-perl5

Repository for my Perl 5 Exercism exercises
git clone git://git.samirparikh.com/exercism-perl5
Log | Files | Refs | README

TwoFer.pm (389B) - raw

      1 package TwoFer;
      2 use strict;
      3 use warnings;
      4 use Exporter qw<import>;
      5 our @EXPORT_OK = qw<two_fer>;
      6 
      7 sub two_fer {
      8   my ($name) = @_;
      9   return "One for " . ($name ? $name : 'you') . ", one for me.";
     10 }
     11 
     12 1;
     13 
     14 __END__
     15 If you are using perl v5.20 or newer, you
     16 can replace the existing sub declaration
     17 with the following code:
     18 
     19 use experimental qw(signatures);
     20 
     21 sub two_fer ($name = undef) {}
     22 
     23 1;