File Coverage

blib/lib/Template/ShowStartStop.pm
Criterion Covered Total %
statement 24 24 100.0
branch 6 6 100.0
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package Template::ShowStartStop;
2 6     6   3807 use 5.006;
  6         20  
  6         218  
3 6     6   30 use strict;
  6         8  
  6         147  
4 6     6   27 use warnings;
  6         8  
  6         210  
5             BEGIN {
6 6     6   93 our $VERSION = '1.0.1'; # VERSION
7             }
8 6     6   5494 use SUPER;
  6         19039  
  6         299  
9 6     6   5767 use parent 'Template::Context';
  6         1803  
  6         31  
10              
11             sub process {
12 16     16 1 433251 my ( $self, $template ) = @_;
13              
14 1         4 my $template_id
15             # conditional # set $template to
16             = ref($template) eq 'Template::Document' ? $template->name
17 16 100       170 : ref($template) eq 'ARRAY' ? join( ' + ', @{$template} )
    100          
    100          
18             : ref($template) eq 'SCALAR' ? '(evaluated block)'
19             : $template
20             ;
21              
22 16         181 my $processed_data = super;
23              
24 16         309965 return my $output
25             = "\n"
26             . "$processed_data"
27             . "\n"
28             ;
29              
30             };
31 6     6   130493 no SUPER;
  6         19  
  6         250  
32             1;
33             # ABSTRACT: Display where templates start and stop
34              
35             __END__