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   6 use YAOO;
  1         2  
  1         6  
4              
5 1     1   375 use ODS::Utils qw/load/;
  1         2  
  1         8  
6              
7             extends 'ODS::Storage::File';
8              
9 1     1   478 use ODS::Serialize::JSON;
  1         84  
  1         100  
10              
11             has _serialize_class => isa(object('ODS::Serialize::JSON')), coerce(sub {
12             my ($self, $value) = @_;
13             $value->new;
14             });
15              
16             1;