File Coverage

blib/lib/Devel/FastProf/Reader.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Devel::FastProf::Reader;
2              
3 2     2   48368 use strict;
  2         4  
  2         95  
4 2     2   12 use warnings;
  2         4  
  2         96  
5              
6             our $VERSION = '0.08';
7              
8 2     2   12 use Carp;
  2         10  
  2         747  
9              
10             require XSLoader;
11             XSLoader::load('Devel::FastProf', $Devel::FastProf::Reader::VERSION);
12              
13             require Exporter;
14             our @ISA = qw(Exporter);
15             our @EXPORT = qw(%PPID %FPIDMAP %TICKS %COUNT @SRC @FN $TICKS_PER_SECOND read_fastprof);
16              
17             our (%PPID, %FPIDMAP, %TICKS, %COUNT,
18             @SRC, @FN,
19             $TICKS_PER_SECOND);
20              
21             sub read_fastprof {
22 0     0 0   (%PPID, %FPIDMAP, %TICKS, %COUNT, @SRC, @FN, $TICKS_PER_SECOND) = ();
23 0           _read_file(shift);
24             }
25              
26             1;