File Coverage

blib/lib/Module/Selector.pm

Criterion	Covered	Total	%
statement	9	46	19.5
branch	0	14	0.0
condition	0	9	0.0
subroutine	3	7	42.8
pod	3	3	100.0
total	15	79	18.9

package Module::Selector;

use strict;
use warnings;
use autouse Carp => qw(croak());

our $VERSION = '0.10';

sub new($$) {
	my ($class, $packages)	= @_;

	$class = ref($class) || $class;

	croak "Module::Selector->new has to be passed an array reference"
		unless ref($packages) eq 'ARRAY';

	my $self = {
		pkgs	=> $packages,
		pkg_c	=> scalar @$packages,
		ltry	=> 0,
		get_c	=> 0,
		vpkgs	=> []
	};

	bless($self, $class);

	return $self
}

{
 my %failed;

 sub _try($) {
	my $self	= shift;

	return if $self->{'ltry'} >= $self->{'pkg_c'};

	my ($i, $pkg, $pkgc);

	$pkgc = $self->{'pkg_c'};

	for($i=$self->{'ltry'}; $i<$pkgc; $i++) {
		$pkg	= $self->{'pkgs'}->[$i];

		next if $failed{$pkg};

		eval "require $pkg";

		if($@) {
			$failed{$pkg} = 1;
			$@ = undef
		}
		else {
			last
		}
	}

	$self->{'ltry'} = ++$i;

	if($pkg and not $failed{$pkg}) {
		push @{$self->{'vpkgs'}}, $pkg;

		return 1
	}

	return 0
 }
}

sub each($) {
	my $self	= shift;

	if($self->{'get_c'} > @{$self->{'vpkgs'}}) {
		$self->{'get_c'} = 0;
		return
	}

	$self->{'get_c'}++;

	unless($self->{'get_c'} <= @{$self->{'vpkgs'}} or $self->_try) {
		$self->{'get_c'} = 0;
		return
	}

	return $self->{'vpkgs'}->[($self->{'get_c'}-1)]
}

sub rewind($) {
	my $self	= shift;

	$self->{'get_c'} = 0
}

1;

__END__