File Coverage

blib/lib/Acme/Marvel/CinematicUniverse/Characters.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	35	35	100.0

use 5.008;
use strict;
use warnings;

package Acme::Marvel::CinematicUniverse::Characters;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.003';

use Module::Pluggable (
	search_path => [ 'Acme::Marvel::CinematicUniverse::Character::Instance' ],
	sub_name    => 'instance_modules',
	require     => 1,
);

my @characters;

sub load_character {
	my ( $class ) = ( shift );
	push @characters, @_;
}

sub characters {
	my ( $class ) = ( shift );
	return @characters;
}

sub find {
	my ( $class, $search ) = ( shift, @_ );
	my $re =
		ref( $search )
		? $search
		: do { my $q = quotemeta( $search ); qr/$q/i };
	my @found = grep /$re/, @characters;
	wantarray ? @found : $found[0];
}

unless ( $ENV{MITE_COMPILE} ) {
	$_->init( __PACKAGE__ ) for __PACKAGE__->instance_modules;
}

1;

__END__