File Coverage

blib/lib/Log/Dispatch/Binlog/Base.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 1 0.0
total 8 14 57.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Log::Dispatch::Binlog::Base;
4              
5 2     2   44490 use strict;
  2         5  
  2         80  
6              
7 2     2   2083 use Storable qw(nstore_fd);
  2         7464  
  2         325  
8              
9 0     0 0   sub new { die "abstract class" }
10              
11             sub _storable_print {
12 0     0     my ( $self, $fh, $p ) = @_;
13 0           nstore_fd( $p, $fh );
14             }
15              
16             __PACKAGE__
17              
18             __END__