File Coverage

blib/lib/CGI/Application/Plugin/AutoRunmode/FileDelegate.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	6	10	60.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	2	0.0
total	28	39	71.7

package CGI::Application::Plugin::AutoRunmode::FileDelegate;

use strict;
use Carp;

our $VERSION = '0.18';

sub new{
	my ($pkg, @directories) = @_;
	foreach my $directory (@directories){
		# keep taint-mode happy where ./ is not in @INC
		$directory = "./$directory" unless (index ($directory, '/') == 0);
		# check if the directory exists
		croak "$directory is not a directory" unless -d $directory;
	}
	return bless \@directories, $pkg;
}

sub can{
	my($self, $name) = @_;
	# check the directories
	foreach (@$self){
		if (-e "$_/$name.pl"){
			my $can = do "$_/$name.pl";
			if ($@ or $!){
				croak "could not evaluate runmode in file $_/$name.pl: $@ $!";
			}
			return $can if ref $can eq 'CODE';
			croak "runmode file $_/$name.pl did not return a subroutine reference";
		}
	}

	return UNIVERSAL::can($self, $name);
}

1;

__END__