File Coverage

blib/lib/WebAPI/DBIC/Router.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	0	4	0.0
condition	0	4	0.0
subroutine	6	9	66.6
pod	0	3	0.0
total	24	50	48.0

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

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.004001

=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