File Coverage

lib/Mojolicious/Plugin/Check.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	7	10	70.0
condition	8	14	57.1
subroutine	4	4	100.0
pod	1	1	100.0
total	55	65	84.6

package Mojolicious::Plugin::Check;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION        = '0.01';

sub register {
    my ($self, $app, $conf) = @_;

    $conf                   ||= {};
    $conf->{stash_checkers} //= 'plugin-check-checkers';
    $conf->{stash_actions}  //= 'plugin-check-actions';

    $app->helper(add_checker => sub {
        my ($c, $name, $sub) = @_;

        my $checkers = $c->app->routes->{$conf->{stash_checkers}} //= {};
        $checkers->{$name} = $sub;

        $c->app->routes->add_condition($name => sub {
            my ($route, $c, $captures, $pattern) = @_;

            my $actions = $c->stash->{$conf->{stash_actions}} //= [];
            push @$actions, [$name, $route, $c, {%$captures}, $pattern];

            return 1;
        });

        return $self;
    });

    $app->hook(around_action => sub {
        my ($next, $c, $action, $last) = @_;

        return $next->() unless $last;

        my $checkers    = $c->app->routes->{$conf->{stash_checkers}}    //= {};
        my $actions      = $c->stash->{$conf->{stash_actions}}          //= [];

        for my $args ( @$actions ) {
            my $name = shift @$args;

            my $checker = $checkers->{ $name };
            next unless $checker;

            my @result = $checker->( @$args );

            if( @result ) {
                if( defined $result[0] ) {
                    if( $result[0] ) {
                        next;
                    } else {
                        return $c->reply->not_found;
                    }
                } else {
                    return;
                }
            } else {
                return $c->reply->not_found;
            }
        }

        return $next->();
    });

    return;
}

1;

__END__