File Coverage

tmp/work/t/templates/simple_template_psp.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Text::PSP::Generated::t::templates::simple_template_psp;
2 1     1   6 use strict;
  1         2  
  1         42  
3 1     1   609 use Text::PSP::Template;
  1         2  
  1         29  
4 1     1   6 use vars qw(@ISA);
  1         2  
  1         147  
5             @ISA = qw(Text::PSP::Template);
6              
7             # this file was generated by Text::PSP::Parser
8              
9             #line 1 t/templates//simple_template.psp
10              
11              
12             sub a_method {
13             my ($self) = @_;
14             return "a method!";
15             }
16              
17             sub run { my @o;
18              
19             #line 1 t/templates//simple_template.psp
20             my $self = shift; push @o,'Hello, World
21              
22             I am a template of class ', ref $self ,'
23              
24             I can even run ', $self->a_method() ,'
25              
26             ';
27             return \@o;}
28             1