File Coverage

blib/lib/Data/IO.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 7 71.4
pod n/a
total 20 28 71.4


line stmt bran cond sub pod time code
1              
2             package Data::IO;
3              
4 2     2   29 use 5;
  2         6  
  2         100  
5 2     2   11 use strict;
  2         3  
  2         70  
6 2     2   10 use warnings;
  2         5  
  2         117  
7              
8             our $VERSION = '0.0006';
9              
10 2     2   1739 use YAML qw(LoadFile);
  2         41395  
  2         163  
11              
12 2     2   23 use base qw(Class::Accessor);
  2         5  
  2         366  
13              
14             sub _read_yaml {
15 0     0     shift;
16 0           my $yml = shift;
17 0           return LoadFile $yml; # XXX error handling ?!
18             }
19              
20             sub _read_perl {
21 0     0     shift;
22 0           my $pl = shift;
23 0           return do $pl; # XXX error handling ?!
24             }
25              
26              
27             1;