File Coverage

blib/lib/Text/MicroMason/DoubleQuote.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::DoubleQuote;
2              
3 1     1   392 use strict;
  1         2  
  1         74  
4              
5             ######################################################################
6              
7             # ( $type, $value ) = $mason->lex_token();
8             sub lex_token {
9 10 50   10 0 31 / (.*) /xcogs ? ( expr => do { my $x = $1; $x =~ s/\|/\\|/g; "qq|$x|" } ) : ()
  10         19  
  10         17  
  10         31  
10             }
11              
12             ######################################################################
13              
14             1;
15              
16             __END__