File Coverage

blib/lib/Config/Maker/Value.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Config::Maker::Value;
2              
3 9     9   51 use utf8;
  9         12  
  9         67  
4 9     9   273 use warnings;
  9         16  
  9         247  
5 9     9   47 use strict;
  9         16  
  9         480  
6              
7 9     9   56 use Carp;
  9         15  
  9         790  
8              
9             package Config::Maker::Value::List;
10 9     9   55 use vars qw(@ISA); @ISA = qw(Config::Maker::Value);
  9         18  
  9         1593  
11              
12             use overload
13 515     515   884 '""' => sub { '[' . join(', ', @{$_[0]}) . ']' },
  515         4294  
14 9     9   47 fallback => 1;
  9         16  
  9         119  
15              
16             sub new {
17 88     88   219 my ($class, $aref) = @_;
18 88         565 bless $aref, $class;
19             }
20              
21             package Config::Maker::Value;
22              
23             1;
24              
25             __END__