File Coverage

blib/lib/Path/Dispatcher/Rule/Chain.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Path::Dispatcher::Rule::Chain;

our $VERSION = '1.07';

use Moo;
extends 'Path::Dispatcher::Rule::Always';

around payload => sub {
    my $orig    = shift;
    my $self    = shift;
    my $payload = $self->$orig(@_);

    if (!@_) {
        return sub {
            $payload->(@_);
            die "Path::Dispatcher next rule\n"; # FIXME From Path::Dispatcher::Declarative... maybe this should go in a common place?
        };
    }

    return $payload;
};

__PACKAGE__->meta->make_immutable;
no Moo;

1;

__END__