File Coverage

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

Criterion	Covered	Total	%
statement	24	26	92.3
branch	2	2	100.0
condition			n/a
subroutine	8	9	88.8
pod	0	2	0.0
total	34	39	87.1

use 5.010001;
use strict;
use warnings;

package Story::Interact::PageSource::Dir;

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

use Moo;
use Types::Common -types;
use Types::Path::Tiny -types;
use namespace::clean;

with 'Story::Interact::PageSource';

has 'dir' => (
	is        => 'ro',
	isa       => Dir,
	coerce    => 1,
	required  => 1,
);

sub get_source_code {
	my ( $self, $page_id ) = @_;
	my $file = $self->dir->child( join q[.], $page_id, 'page.pl' );
	return unless $file->exists;
	return $file->slurp_utf8;
}

sub all_page_ids {
	my ( $self ) = @_;
	map $_->basename( '.page.pl' ), $self->dir->children( qr/\.page\.pl\z/ );
}

1;