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   934 use 5.008_004;
  50         169  
4              
5 50     50   295 use strict;
  50         114  
  50         1363  
6 50     50   260 use warnings FATAL => 'all';
  50         107  
  50         2233  
7              
8 50     50   310 use base qw( DBM::Deep::Sector::File );
  50         129  
  50         7368  
9              
10             # This is in bytes
11 8484     8484 0 20200 sub size { $_[0]{engine}->data_sector_size }
12 429     429 0 1007 sub free_meth { return '_add_free_data_sector' }
13              
14             1;
15             __END__