File Coverage

blib/lib/TestML1/Util.pm
Criterion Covered Total %
statement 17 19 89.4
branch n/a
condition n/a
subroutine 9 11 81.8
pod 0 7 0.0
total 26 37 70.2


line stmt bran cond sub pod time code
1 24     24   476 use strict; use warnings;
  24     24   36  
  24         506  
  24         80  
  24         29  
  24         417  
2              
3 24     24   5588 use TestML1::Runtime;
  24         54  
  24         821  
4              
5             package TestML1::Util;
6              
7 24     24   109 use Exporter 'import';
  24         28  
  24         3997  
8             our @EXPORT = qw( runtime list str num bool none native );
9              
10 18     18 0 36 sub runtime { $TestML1::Runtime::Singleton }
11              
12 42     42 0 96 sub list { TestML1::List->new(value => $_[0]) }
13 167     167 0 367 sub str { TestML1::Str->new(value => $_[0]) }
14 8     8 0 36 sub num { TestML1::Num->new(value => $_[0]) }
15 9     9 0 27 sub bool { TestML1::Bool->new(value => $_[0]) }
16 0     0 0   sub none { TestML1::None->new(value => $_[0]) }
17 0     0 0   sub native { TestML1::Native->new(value => $_[0]) }
18              
19             1;