Sha256: 6c317c130f5a64b5db2337abb7efc4b17945ffd2db9a0105201716b0c3edeeb8
Contents?: true
Size: 434 Bytes
Versions: 323
Compression:
Stored size: 434 Bytes
Contents
package Example;
use strict;
use warnings;
sub proverb {
my ($items, $qualifier) = @_;
my @proverb;
$qualifier .= " " if $qualifier;
my $last_line = "And all for the want of a ${qualifier}$items->[0].";
while ( @$items > 1 ) {
push @proverb
=> sprintf("For want of a %s the %s was lost.", shift @$items, $items->[0]);
}
return join "\n" => (@proverb, $last_line)
}
__PACKAGE__;
Version data entries
323 entries across 323 versions & 1 rubygems