Sha256: 8949981cfe190ed87c63602c57fd768600ebba5097fbd0ec97be18e46b36e262
Contents?: true
Size: 434 Bytes
Versions: 73
Compression:
Stored size: 434 Bytes
Contents
package Proverb;
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
73 entries across 73 versions & 1 rubygems