File Coverage

blib/lib/DBM/Deep/Sector/File/Data.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package DBM::Deep::Sector::File::Data;
2              
3 54     54   1109 use 5.008_004;
  54         203  
4              
5 54     54   345 use strict;
  54         139  
  54         2228  
6 54     54   359 use warnings FATAL => 'all';
  54         110  
  54         3710  
7              
8 54     54   314 use base qw( DBM::Deep::Sector::File );
  54         162  
  54         9068  
9              
10             # This is in bytes
11 12890     12890 0 32048 sub size { $_[0]{engine}->data_sector_size }
12 800     800 0 2121 sub free_meth { return '_add_free_data_sector' }
13              
14             1;
15             __END__