fizzbuzz.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

sub fizzbuzz{
    my $n = shift;
    return 'FizzBuzz' if &is_fizz($n) && &is_buzz($n);
    return 'Fizz' if &is_fizz($n);
    return 'Buzz' if &is_buzz($n);
    return $n ;
}

sub is_fizz{
    my $num = shift;
    return 1 if $num%3 == 0;
}

sub is_buzz{
    my $num = shift;
    return 1 if $num%5 == 0;
}

1;