File Coverage

blib/lib/Plack/Middleware/Acme/Werewolf.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	8	75.0
condition	4	5	80.0
subroutine	7	7	100.0
pod	2	2	100.0
total	45	48	93.7

package Plack::Middleware::Acme::Werewolf;

use strict;
use warnings;
use Astro::MoonPhase ();
use parent qw( Plack::Middleware );
use Plack::Util::Accessor qw( moonlength message handler );

our $VERSION = '0.02';

sub prepare_app {
    my ( $self ) = @_;
    die "Set moonlength" unless $self->moonlength;
    die "handler must be a code reference." if $self->handler && ref( $self->handler ) ne 'CODE';
}

sub call {
    my ( $self, $env ) = @_;
    my $moonage    = ( Astro::MoonPhase::phase( time ) )[2];
    #print "moonage:$moonage\n";
    if ( abs( 14 - $moonage ) > $self->moonlength / 2 ) {
        return $self->app->( $env );
    }
    else {
        my $body = $self->message || 'Forbidden';

        if ( $self->handler ) {
            return $self->handler->( $self, $env, $moonage );
        }

        return [
            403,
            [
                'Content-Type'   => 'text/plain',
                'Content-Length' => length $body,
            ],
            [ $body ]
        ];
    }
}

1;
__END__