File Coverage

blib/lib/Test/Inline/Content/Simple.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	9	18	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	51	62	82.2

package Test::Inline::Content::Simple;
# ABSTRACT: Simple templating Content Handler

#pod =pod
#pod
#pod =head1 SYNOPSIS
#pod
#pod   In your inline2test.tpl
#pod   ----------------------
#pod   #!/usr/bin/perl -w
#pod
#pod   use strict;
#pod   use Test::More [% plan %];
#pod   $| = 1;
#pod
#pod
#pod
#pod   [% tests %]
#pod
#pod
#pod
#pod   1;
#pod
#pod =head1 DESCRIPTION
#pod
#pod It is relatively common to want to customise the contents of the generated
#pod test files to set up custom environment things on an all-scripts basis,
#pod rather than file by file (using =begin SETUP blocks).
#pod
#pod C lets you use a very simple Template Toolkit
#pod style template to define this information.
#pod
#pod It contains only two tags, C and C.
#pod
#pod The C tag will be inserted as either C 123> or C<'no_plan'>.
#pod
#pod The C tag will be replaced by the actual testing code.
#pod
#pod =head1 METHODS
#pod
#pod =cut

use strict;
use Path::Tiny ();
use Params::Util qw{_INSTANCE};
use Test::Inline::Content ();

our $VERSION = '2.214';
our @ISA     = 'Test::Inline::Content';





#####################################################################
# Constructor and Accessors

#pod =pod
#pod
#pod =head2 new $filename
#pod
#pod Manually create a new C object. Takes as
#pod parameter a single filename which should contain the template code.
#pod
#pod Returns a new C object, or C on error.
#pod
#pod =cut

sub new {
	my $class = ref $_[0] ? ref shift : shift;
	my $file  = (defined $_[0] and -r $_[0]) ? shift : return undef;

	# Create the object
	my $self  = $class->SUPER::new() or return undef;

	# Load, check and add the file
	my $template = Path::Tiny::path($file)->slurp or return undef;
	$template =~ /\[%\s+tests\s+\%\]/              or return undef;
	# $template =~ /\[\%\s+plan\s+\%\]/              or return undef;
	$self->{template} = $template;

	$self;
}

#pod =pod
#pod
#pod =head2 template
#pod
#pod The C