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 50     50   944 use 5.008_004;
  50         178  
4              
5 50     50   264 use strict;
  50         106  
  50         1342  
6 50     50   304 use warnings FATAL => 'all';
  50         100  
  50         2237  
7              
8 50     50   342 use base qw( DBM::Deep::Sector::File );
  50         102  
  50         7110  
9              
10             # This is in bytes
11 8484     8484 0 21518 sub size { $_[0]{engine}->data_sector_size }
12 429     429 0 1112 sub free_meth { return '_add_free_data_sector' }
13              
14             1;
15             __END__