File Coverage

blib/lib/WebAPI/DBIC/Router.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package WebAPI::DBIC::Router;
$WebAPI::DBIC::Router::VERSION = '0.003002';

use Moo;

use Carp qw(croak);

use Path::Router;
use Plack::App::Path::Router;

use namespace::clean -except => [qw(meta)];
use MooX::StrictConstructor;


has router => (
    is => 'ro',
    default => sub { Path::Router->new },
    handles => [ qw(match) ],
);


sub add_route {
    my ($self, %args) = @_;

    my $path        = delete $args{path};
    my $validations = delete $args{validations} || {};
    my $defaults    = delete $args{defaults}    || {};
    my $target      = delete $args{target}      or croak "target not specified";
    croak "Unknown params (@{[ sort keys %args ]})" if %args;

    $self->router->add_route($path,
        validations => $validations,
        defaults => $defaults,
        target => $target,
    );
}


sub to_psgi_app {
    my $self = shift;
    return Plack::App::Path::Router->new( router => $self->router )->to_app; # return Plack app
}


sub uri_for { # called by WebAPI::DBIC::Resource::Role::Router
    local $SIG{__DIE__}; # https://github.com/timbunce/WebAPI-DBIC/issues/22
    return shift->router->uri_for(@_);
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WebAPI::DBIC::Router

=head1 VERSION

version 0.003002

=head1 DESCRIPTION

This is currently a wrapper for L<Path::Router>.

The intention is to allow support for other routers.

=head1 NAME

WebAPI::DBIC::Router - Route URL paths to resources

=head1 AUTHOR

Tim Bunce <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Tim Bunce.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut