File Coverage

blib/lib/Filesys/DiskUsage/Fast.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Filesys::DiskUsage::Fast;
2              
3             # ABSTRACT: A fast disk usage counter (du) with XS
4              
5 6     6   214437 use strict;
  6         15  
  6         227  
6 6     6   32 use warnings;
  6         12  
  6         191  
7 6     6   31 use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT_OK);
  6         18  
  6         1168  
8              
9             $VERSION = '0.04';
10              
11             require Exporter;
12             @ISA = qw(Exporter);
13              
14             %EXPORT_TAGS = ( 'all' => [ qw(du) ] );
15             @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
16              
17             $Filesys::DiskUsage::Fast::Debug = 0;
18             $Filesys::DiskUsage::Fast::ShowWarnings = 1;
19             $Filesys::DiskUsage::Fast::SectorSize = 0;
20              
21             require XSLoader;
22             XSLoader::load('Filesys::DiskUsage::Fast', $VERSION);
23              
24             1;
25              
26             __END__