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   1818 use 5.008;
  2         9  
2 2     2   13 use strict;
  2         5  
  2         54  
3 2     2   14 use warnings;
  2         4  
  2         194  
4              
5             package Template::Compiled::Utils;
6              
7             our $AUTHORITY = 'cpan:TOBYINK';
8             our $VERSION = '0.002';
9              
10 2         18 use Exporter::Shiny our @EXPORT = qw(
11             echo
12             echof
13 2     2   1041 );
  2         950  
14              
15             sub echo {
16 3     3 0 1898 my $outref = do {
17 3         10 my $caller = caller;
18 2     2   178 no strict 'refs';
  2         7  
  2         218  
19 3         7 ${"$caller\::_OUT_REF"};
  3         15  
20             };
21 3         17 $$outref .= $_ for @_;
22             }
23              
24             sub echof {
25 2     2 0 69 my $fmt = shift;
26 2         12 @_ = sprintf $fmt, @_;
27 2         10 goto \&echo;
28             }
29              
30             1;