File Coverage

blib/lib/Story/Interact.pm

Criterion	Covered	Total	%
statement	44	49	89.8
branch	4	6	66.6
condition			n/a
subroutine	14	14	100.0
pod	0	1	0.0
total	62	70	88.5

use 5.010001;
use strict;
use warnings;

package Story::Interact;

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

use Story::Interact::Analyze ();
use Story::Interact::Character ();
use Story::Interact::Harness::Terminal ();
use Story::Interact::Page ();
use Story::Interact::PageSource ();
use Story::Interact::PageSource::DBI ();
use Story::Interact::PageSource::Dir ();
use Story::Interact::PageSource::Waterfall ();
use Story::Interact::State ();
use Story::Interact::Syntax ();

sub new_page_source {
	my ( undef, $story ) = @_;

	if ( -d $story ) {
		return Story::Interact::PageSource::Dir->new( dir => $story );
	}
	elsif ( $story =~ /^dbi:/i ) {
		require DBI;
		my $dbh = DBI->connect( $story, undef, undef );
		return Story::Interact::PageSource::DBI->new( dbh => $dbh );
	}
	elsif ( -f $story ) {
		require DBI;
		my $dbh = DBI->connect( "dbi:SQLite:dbname=$story", '', '' );
		return Story::Interact::PageSource::DBI->new( dbh => $dbh );
	}

	require Carp;
	Carp::croak("Could not open '$story' as a page source");
}

1;

__END__