File Coverage

blib/lib/Devel/Size.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Devel::Size;
2              
3 6     6   75134 use strict;
  6         11  
  6         212  
4 6     6   24 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS $warn $dangle);
  6         6  
  6         668  
5              
6             require 5.005;
7             require Exporter;
8             require XSLoader;
9              
10             @ISA = qw(Exporter);
11              
12             @EXPORT_OK = qw(size total_size);
13              
14             # This allows declaration use Devel::Size ':all';
15             %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
16              
17             $VERSION = '0.80';
18              
19             XSLoader::load( __PACKAGE__);
20              
21             $warn = 1;
22             $dangle = 0; ## Set true to enable warnings about dangling pointers
23              
24             1;
25             __END__