File Coverage

blib/lib/HTTPx/Dispatcher.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	49	53	92.4

package HTTPx::Dispatcher;
use strict;
use warnings;
use 5.00800;
our $VERSION = '0.10';
use HTTPx::Dispatcher::Rule;
use Scalar::Util qw/blessed/;
use Carp;
use base qw/Exporter/;

our @EXPORT = qw/connect match uri_for/;

my $rules;

sub connect {
    my $pkg  = caller(0);
    my @args = @_;

    push @{ $rules->{$pkg} }, HTTPx::Dispatcher::Rule->new(@args);
}

sub match {
    my ( $class, $req ) = @_;

    for my $rule ( @{ $rules->{$class} } ) {
        if ( my $result = $rule->match($req) ) {
            return $result;
        }
    }
    return;    # no match.
}

sub uri_for {
    my ( $class, @args ) = @_;

    for my $rule ( @{ $rules->{$class} } ) {
        if ( my $result = $rule->uri_for(@args) ) {
            return $result;
        }
    }
}

1;
__END__