File Coverage

blib/lib/ExtUtils/Builder/FileSet.pm

Criterion	Covered	Total	%
statement	26	30	86.6
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	3	0.0
total	33	42	78.5

package ExtUtils::Builder::FileSet;
$ExtUtils::Builder::FileSet::VERSION = '0.020';
use strict;
use warnings;

use Carp ();

sub new {
	my ($class, %args) = @_;
	my $self = bless {
		entries    => [],
		dependents => [],
		callback   => $args{callback},
	}, $class;
	return $self;
}

sub entries {
	my $self = shift;
	return @{ $self->{entries} };
}

sub add_dependent {
	my ($self, $dep) = @_;
	push @{ $self->{dependents} }, $dep;
	for my $file (@{ $self->{entries} }) {
		$dep->add_input($file);
	}
	return;
}

sub _pass_on {
	my ($self, $entry) = @_;
	push @{ $self->{entries} }, $entry;
	$self->{callback}->($entry) if $self->{callback};
	for my $dependent (@{ $self->{dependents} }) {
		$dependent->add_input($entry);
	}
	return;
}

1;