File Coverage

blib/lib/Router/Simple/Sinatraish.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	4	4	100.0
total	54	55	98.1

package Router::Simple::Sinatraish;
use strict;
use warnings;
use parent qw/Exporter/;
use 5.00800;
our $VERSION = '0.03';
use Router::Simple;

our @EXPORT = qw/router any get post/;

sub router {
    my $class = shift;
    no strict 'refs';
    no warnings 'once';
    ${"${class}::ROUTER"} ||= Router::Simple->new();
}

# any [qw/get post delete/] => '/bye' => sub { ... };
# any '/bye' => sub { ... };
sub any($$;$) {
    my $pkg = caller(0);
    if (@_==3) {
        my ($methods, $pattern, $code) = @_;
        $pkg->router->connect(
            $pattern,
            {code => $code},
            { method => [ map { uc $_ } @$methods ] }
        );
    } else {
        my ($pattern, $code) = @_;
        $pkg->router->connect(
            $pattern,
            {code => $code},
        );
    }
}

sub get  {
    my $pkg = caller(0);
    $pkg->router->connect($_[0], {code => $_[1]}, {method => ['GET', 'HEAD']});
}
sub post {
    my $pkg = caller(0);
    $pkg->router->connect($_[0], {code => $_[1]}, {method => ['POST']});
}

1;
__END__