File Coverage

inc/TestML/Util.pm
Criterion Covered Total %
statement 13 19 68.4
branch n/a
condition n/a
subroutine 5 11 45.4
pod 0 7 0.0
total 18 37 48.6


line stmt bran cond sub pod time code
1 4     4   15 use strict; use warnings;
  4     4   4  
  4         223  
  4         35  
  4         5  
  4         102  
2              
3 4     4   1383 use TestML::Runtime;
  4         14  
  4         223  
4              
5             package TestML::Util;
6              
7 4     4   25 use Exporter 'import';
  4         6  
  4         1026  
8             our @EXPORT = qw( runtime list str num bool none native );
9              
10 0     0 0 0 sub runtime { $TestML::Runtime::Singleton }
11              
12 0     0 0 0 sub list { TestML::List->new(value => $_[0]) }
13 12     12 0 688829 sub str { TestML::Str->new(value => $_[0]) }
14 0     0 0   sub num { TestML::Num->new(value => $_[0]) }
15 0     0 0   sub bool { TestML::Bool->new(value => $_[0]) }
16 0     0 0   sub none { TestML::None->new(value => $_[0]) }
17 0     0 0   sub native { TestML::Native->new(value => $_[0]) }
18              
19             1;