fizzbuzz.pl

#!/usr/bin/env perl

use Modern::Perl;
use Mojolicious::Lite;

get '/fizzbuzz/:number' => sub {
    my $self = shift;
    my $num  = $self->param('number');
    my $out  = [];

    $self->render( text => "Not a Number!\n" )
      if $num !~ /^\d+$/;

    for ( 1 .. $num ) {
        when ( $_ % 3 == 0 && $_ % 5 == 0 ) { push @$out, "FizzBuzz" }
        when ( $_ % 3 == 0 ) { push @$out, "Fizz" }
        when ( $_ % 5 == 0 ) { push @$out, "Buzz" }
        default              { push @$out, $_ };
    }

    $self->render_json($out);
};

app->start;