File Coverage

blib/lib/IRC/Indexer/Output/YAML.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 24 58.3


line stmt bran cond sub pod time code
1             package IRC::Indexer::Output::YAML;
2              
3 1     1   1749 use strict;
  1         3  
  1         43  
4 1     1   5 use warnings;
  1         1  
  1         29  
5 1     1   1285 use YAML::XS ();
  1         6831  
  1         149  
6              
7             require IRC::Indexer::Output;
8             our @ISA = qw/IRC::Indexer::Output/;
9              
10             sub dump {
11 0     0 1   my ($self, $path) = @_;
12 0           my $input = $self->{Input};
13 0           $self->{Output} = YAML::XS::Dump($input);
14 0           $self->SUPER::dump();
15             }
16              
17             sub write {
18 0     0 1   my ($self, $path) = @_;
19 0           my $input = $self->{Input};
20 0           $self->{Output} = YAML::XS::Dump($input);
21 0           $self->SUPER::write($path);
22             }
23              
24             1;
25             __END__