File Coverage

blib/lib/Syntax/Infix/ConditionalSplice.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod n/a
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Syntax::Infix::ConditionalSplice;
2              
3 2     2   158352 use 5.038;
  2         9  
4 2     2   8 use strict;
  2         2  
  2         43  
5 2     2   7 use warnings;
  2         3  
  2         74  
6              
7 2     2   749 use Infix::Custom ();
  2         976  
  2         208  
8              
9             our $VERSION = '0.01';
10              
11             require XSLoader;
12             XSLoader::load('Syntax::Infix::ConditionalSplice', $VERSION);
13              
14             sub import {
15 2     2   1459 Infix::Custom->import(
16             op => '?|',
17             build_op => _build_op_addr(),
18             prec => 'assign',
19             );
20             }
21              
22             sub unimport {
23 0     0     Infix::Custom->unimport('?|');
24             }
25              
26             1;
27              
28             __END__