File Coverage

blib/lib/Test/Inline/Content.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	2	2	100.0
total	25	27	92.5

package Test::Inline::Content;
# ABSTRACT: Test::Inline 2 Content Handlers

#pod =pod
#pod
#pod =head1 DESCRIPTION
#pod
#pod One problem with the initial versions of L 2 was the method
#pod by which it generated the script contents.
#pod
#pod C provides a basic API by which more sophisticated
#pod extensions can be written to control the content of the generated scripts.
#pod
#pod =head1 METHODS
#pod
#pod =cut

use strict;
use Params::Util '_INSTANCE';

our $VERSION = '2.214';

#pod =pod
#pod
#pod =head2 new
#pod
#pod A default implementation of the C method is provided that takes no
#pod parameters and creates a default (empty) object.
#pod
#pod Returns a new C object.
#pod
#pod =cut

sub new {
	my $class = ref $_[0] || $_[0];
	bless {}, $class;
}

#pod =pod
#pod
#pod =head2 process $Inline $Script
#pod
#pod The C method does the work of generating the script content. It
#pod takes as argument the parent L object, and the completed
#pod L object for which the file is to be generated.
#pod
#pod The default implementation returns only an empty script that dies with
#pod an appropriate error message.
#pod
#pod Returns the content of the script as a string, or C on error.
#pod
#pod =cut

sub process {
	my $self   = shift;
	my $Inline = _INSTANCE(shift, 'Test::Inline')         or return undef;
	my $Script = _INSTANCE(shift, 'Test::Inline::Script') or return undef;

	# If used directly, create a valid script file that just dies
	my $class   = $Script->class;
	my $content = <<"END_PERL";
#!/usr/bin/perl

use strict;
use Test::More tests => 1;

fail('Generation of inline test script for $class failed' );

exit(0);
END_PERL

	return $content;
}

1;

__END__