File Coverage

blib/lib/MooX/ReturnModifiers.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	11	11	100.0
pod	7	7	100.0
total	49	49	100.0

package MooX::ReturnModifiers;

use strict;
use warnings;
use Carp qw/croak/;

our $VERSION = '1.000000';

use Exporter 'import';

our @EXPORT = qw/return_modifiers/;
our @EXPORT_OK = qw/return_modifiers return_has return_with return_around return_extends return_before return_after/;

sub return_modifiers {
	my %modifiers = ();
	$_[1] ||= [qw/has with around extends before after/];
	for ( @{ $_[1] } ) {
		unless ( $modifiers{$_} = $_[0]->can($_) ) {
			croak "Can't find method <$_> in <$_[0]>";
		}
	}
	return $_[2] ? \%modifiers : %modifiers;
}

sub return_has {return_modifiers($_[0], [qw/has/], 1)->{has}}

sub return_with {return_modifiers($_[0], [qw/with/], 1)->{with}}

sub return_after {return_modifiers($_[0], [qw/after/], 1)->{after}}

sub return_before {return_modifiers($_[0], [qw/before/], 1)->{before}}

sub return_around {return_modifiers($_[0], [qw/around/], 1)->{around}}

sub return_extends {return_modifiers($_[0], [qw/extends/], 1)->{extends}}

1;

__END__