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   937 use 5.008_004;
  50         182  
4              
5 50     50   294 use strict;
  50         104  
  50         1480  
6 50     50   308 use warnings FATAL => 'all';
  50         127  
  50         2111  
7              
8 50     50   321 use base qw( DBM::Deep::Sector::File );
  50         128  
  50         7599  
9              
10             # This is in bytes
11 8484     8484 0 20542 sub size { $_[0]{engine}->data_sector_size }
12 429     429 0 994 sub free_meth { return '_add_free_data_sector' }
13              
14             1;
15             __END__