File Coverage

blib/lib/Plack/App/REST.pm

Criterion	Covered	Total	%
statement	39	41	95.1
branch	10	12	83.3
condition	5	8	62.5
subroutine	7	7	100.0
pod	1	1	100.0
total	62	69	89.8

package Plack::App::REST;

use 5.008_005;
use strict;
use warnings FATAL => 'all';

our $VERSION = '0.02'; # Set automatically by milla

use parent qw( Plack::Component );
use HTTP::Exception;

sub call {
	my($self, $env) = @_;

	my $method = $env->{REQUEST_METHOD};

	### Throw an exception if method is not defined
	if (!$self->can($method)){
		return [405, ['Content-Type', 'text/plain'], ['Method Not Allowed']];
	}

	### Set params of path
	my $id = _get_param($env);

	### Set ref to env
	$env->{'REST.class'} = ref $self;

	# compatibility with Plack::Middleware::ParseContent
	my $data = $env->{'parsecontent.data'} if exists $env->{'parsecontent.data'};

	### Call method
	my ($ret, $h) = eval{ $self->$method($env, $id, $data) };

	### Parse output
	if ( my $e = HTTP::Exception->caught ) {

		my @headers = ('Content-Type', 'text/plain');
		my $code = $e->code;

		if ( $code =~ /^3/ && (my $loc = eval{$e->location}) ) {
			push( @headers, Location => $loc );
		}

		$env->{'psgi.errors'}->print( $e );
		return [ $code, \@headers, [$e->message] ];
	}elsif($@){
		$env->{'psgi.errors'}->print( $e );
		return [ 500, ['Content-Type', 'text/plain'], [$@] ];
	}

	return [200, ($h||[]), $ret];
}

### Get last requested path
sub _get_param {
	my $env = shift;
	my $p = $env->{PATH_INFO};
	return if !$p or $p eq '/';

	# get param of uri
	(my $r = $p) =~ s/\+/ /g;
	$r =~ m!/(?:([^/]*))!g;
	return $1;
}

1;
__END__