exercism-perl5

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

Raindrops.pm (324B) - raw

      1 package Raindrops;
      2 use strict;
      3 use warnings;
      4 use Exporter qw<import>;
      5 our @EXPORT_OK = qw<raindrop>;
      6 
      7 sub raindrop {
      8   my ($number) = @_;
      9   my $result = '';
     10   $result .= 'Pling' unless $number % 3;
     11   $result .= 'Plang' unless $number % 5;
     12   $result .= 'Plong' unless $number % 7;
     13   return $result ? $result : $number;
     14 }
     15 
     16 1;