exercism-perl5

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

Proverb.pm (441B) - raw

      1 package Proverb;
      2 
      3 use strict;
      4 use warnings;
      5 
      6 sub proverb {
      7     my ( $items, $qualifier ) = @_;
      8     my $no_items = scalar @{ $items };
      9     my $answer;
     10     foreach my $i ( 0 .. @{ $items } - 2 ) {
     11         $answer .= "For want of a $items->[$i] the $items->[$i+1] was lost.\n";
     12     }
     13     $answer .= "And all for the want of a ";
     14     $answer .= "$qualifier " unless ( $qualifier eq "" );
     15     $answer .= "$items->[0].";
     16     return $answer;
     17 }
     18 
     19 1;