File Coverage

blib/lib/ODS/Storage/File/JSON.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package ODS::Storage::File::JSON;
2              
3 1     1   8 use YAOO;
  1         2  
  1         7  
4              
5 1     1   497 use ODS::Utils qw/load/;
  1         3  
  1         26  
6              
7             extends 'ODS::Storage::File';
8              
9 1     1   947 use ODS::Serialize::JSON;
  1         5  
  1         130  
10              
11             has _serialize_class => isa(object('ODS::Serialize::JSON')), coerce(sub {
12             my ($self, $value) = @_;
13             $value->new;
14             });
15              
16             1;