File Coverage

blib/lib/RapidApp/Handler.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	9	14	64.2
condition	4	6	66.6
subroutine	5	5	100.0
pod	0	2	0.0
total	40	49	81.6

package RapidApp::Handler;
use Moose;

use RapidApp::Util qw(:all);

has 'scope'		=> ( is => 'rw', default => undef, isa => 'Maybe[Object]' );
has 'method'	=> ( is => 'rw', default => undef, isa => 'Maybe[Str]' );
has 'code'		=> ( is => 'rw', default => undef, isa => 'Maybe[CodeRef]' );

sub BUILD {
	my $self = shift;

	die 'neither code nor method supplied.' unless (defined $self->method or defined $self->code);
	die 'method and code cannot be used together' if (defined $self->method and defined $self->code);

	if (defined $self->method) {
		die 'scope is required with method' unless (defined $self->scope);
		$self->scope->can($self->method) or die ref($self->scope) . ' does not have a method named "' . $self->method . '"';
	}
}

sub call {
	my $self = shift;

	my @args = @_;

	return $self->_call_coderef(@args) if (defined $self->code);
	my $method = $self->method;
	return $self->scope->$method(@args);
}

sub _call_coderef {
	my $self = shift;
	my @arg = ();
	push @arg, $self->scope if (defined $self->scope);
	push @arg, @_;
	return $self->code->(@arg);
}


1;