File Coverage

blib/lib/Module/Changes/Formatter.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 22 59.0


line stmt bran cond sub pod time code
1             package Module::Changes::Formatter;
2              
3 2     2   13 use warnings;
  2         5  
  2         53  
4 2     2   10 use strict;
  2         4  
  2         80  
5              
6              
7             our $VERSION = '0.05';
8              
9              
10 2     2   22 use base 'Module::Changes::Base';
  2         3  
  2         412  
11              
12              
13             __PACKAGE__->mk_abstract_accessors(qw(format));
14              
15              
16             sub format_to_file {
17 0     0 1   my ($self, $changes, $filename) = @_;
18 0 0         open my $fh, '>', $filename or
19             die "can't open $filename for writing: $!\n";
20 0           print $fh $self->format($changes);
21 0 0         close $fh or die "can't close $filename: $!\n";
22             }
23              
24              
25             1;
26              
27             __END__