File Coverage

blib/lib/ODS/Storage/File/YAML.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package ODS::Storage::File::YAML;
2              
3 1     1   6 use YAOO;
  1         1  
  1         5  
4              
5             extends 'ODS::Storage::File';
6              
7 1     1   714 use ODS::Serialize::YAML;
  1         2  
  1         69  
8              
9             has _serialize_class => isa(object('ODS::Serialize::YAML')), coerce(sub {
10             my ($self, $value) = @_;
11             $value->new;
12             });
13              
14             1;