File Coverage

blib/lib/Template/Compiled/Utils.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 29 31 93.5


line stmt bran cond sub pod time code
1 2     2   1590 use 5.008;
  2         6  
2 2     2   19 use strict;
  2         5  
  2         41  
3 2     2   16 use warnings;
  2         5  
  2         167  
4              
5             package Template::Compiled::Utils;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.003';
9              
10 2         14 use Exporter::Shiny our @EXPORT = qw(
11             echo
12             echof
13 2     2   887 );
  2         964  
14              
15             sub echo {
16 3     3 0 1106 my $outref = do {
17 3         5 my $caller = caller;
18 2     2   135 no strict 'refs';
  2         4  
  2         211  
19 3         3 ${"$caller\::_OUT_REF"};
  3         9  
20             };
21 3         8 $$outref .= $_ for @_;
22             }
23              
24             sub echof {
25 2     2 0 56 my $fmt = shift;
26 2         7 @_ = sprintf $fmt, @_;
27 2         5 goto \&echo;
28             }
29              
30             1;