File Coverage

blib/lib/Devel/NYTProf/ReadStream.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Devel::NYTProf::ReadStream;
2              
3 1     1   7986 use warnings;
  1         2  
  1         46  
4 1     1   6 use strict;
  1         2  
  1         34  
5              
6             our $VERSION = '6.13_003';
7              
8 1     1   5 use base 'Exporter';
  1         2  
  1         116  
9             our @EXPORT_OK = qw(
10             for_chunks
11             );
12              
13 1     1   6 use Devel::NYTProf::Data;
  1         2  
  1         92  
14              
15             sub for_chunks (&%) {
16 1     1 1 18802 my($cb, %opts) = @_;
17 1         60 Devel::NYTProf::Data->new( {
18             %opts,
19             callback => $cb,
20             });
21             }
22              
23             1;
24              
25             __END__