File Coverage

blib/lib/Plack/Middleware/REST/Util.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	6	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	3	0.0
total	23	30	76.6

package Plack::Middleware::REST::Util;

our $VERSION = '0.03';

use Plack::Request;

use parent 'Exporter';

our @EXPORT = qw(request_id request_content request_uri);

sub request_id {
    substr($_[0]->{PATH_INFO} || '/',1)
}

sub request_content {
    return unless defined $_[0]->{CONTENT_LENGTH};
    return (Plack::Request->new($_[0])->content => $_[0]->{CONTENT_TYPE});
}

sub request_uri {
    my $env = shift;
    my $id  = @_ ? shift : request_id($env);
    my $uri = Plack::Request->new($env)->base;
    $uri .= '/' unless $uri =~ qr{/$};
    return $uri . $id;
}

1;
__END__