File Coverage

blib/lib/Story/Interact/PageSource/Waterfall.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	2	2	100.0
condition			n/a
subroutine	9	10	90.0
pod	0	2	0.0
total	40	46	86.9

use 5.010001;
use strict;
use warnings;

package Story::Interact::PageSource::Waterfall;

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

use Moo;
use Types::Common -types;
use Types::Path::Tiny -types;
use List::Util qw( uniqstr );
use namespace::clean;

with 'Story::Interact::PageSource';

has 'sources' => (
	is        => 'ro',
	isa       => ArrayRef->of( ConsumerOf->of( 'Story::Interact::PageSource' ) ),
	required  => 1,
);

sub get_source_code {
	my ( $self, $page_id ) = @_;
	for my $source ( @{ $self->sources } ) {
		my $code = $source->get_source_code( $page_id );
		return $code if defined $code;
	}
	return;
}

sub all_page_ids {
	my ( $self ) = @_;
	return uniqstr( map $_->all_page_ids, @{ $self->sources } );
}

1;