File Coverage

blib/lib/Text/MicroMason/Sprintf.pm
Criterion Covered Total %
statement 7 7 100.0
branch 1 2 50.0
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Text::MicroMason::Sprintf;
2              
3 1     1   428 use strict;
  1         1  
  1         74  
4              
5             ######################################################################
6              
7             # ( $type, $value ) = $mason->lex_token();
8             sub lex_token {
9 7 50   7 0 21 / (.*) /xcogs ? ( expr => do { my $x = $1; $x =~ s/\|/\\|/g; "sprintf(qq|$x|, \@_)" } ) : ()
  7         9  
  7         10  
  7         29  
10             }
11              
12             ######################################################################
13              
14             1;
15              
16             __END__