File Coverage

blib/lib/Aspect/Library/NYTProf.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 4 50.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 31 34 91.1


line stmt bran cond sub pod time code
1             package Aspect::Library::NYTProf;
2              
3 2     2   2270 use 5.008002;
  2         8  
  2         83  
4 2     2   12 use strict;
  2         4  
  2         74  
5 2     2   23 use warnings;
  2         5  
  2         76  
6 2     2   12871 use Devel::NYTProf 3.01 ();
  2         9649  
  2         549  
7 2     2   2874 use Aspect::Modular 1.00 ();
  2         16568  
  2         97  
8 2     2   2003 use Aspect::Advice::Around ();
  2         17791  
9              
10             our $VERSION = '1.00';
11             our @ISA = 'Aspect::Modular';
12             our $DEPTH = 0;
13              
14             sub get_advice {
15             Aspect::Advice::Around->new(
16             lexical => $_[0]->lexical,
17             pointcut => $_[1],
18             code => sub {
19 1 50   1   96310 DB::enable_profile() unless $DEPTH++;
20 1         8 $_->proceed;
21 1 50       3847 DB::disable_profile() unless --$DEPTH;
22             },
23 1     1 0 91 );
24             }
25              
26             END {
27             DB::finish_profile();
28             }
29              
30             1;
31              
32             __END__