File Coverage

blib/lib/Aspect/Pointcut/Returning.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Aspect::Pointcut::Returning;
2              
3 21     21   80 use strict;
  21         28  
  21         515  
4 21     21   81 use warnings;
  21         26  
  21         424  
5 21     21   74 use Carp ();
  21         27  
  21         226  
6 21     21   72 use Aspect::Pointcut ();
  21         21  
  21         2032  
7              
8             our $VERSION = '0.97_06';
9             our @ISA = 'Aspect::Pointcut';
10              
11              
12              
13              
14              
15             ######################################################################
16             # Weaving Methods
17              
18             # Exception pointcuts always match at weave time and should curry away
19             sub curry_weave {
20 19     19 1 40 return;
21             }
22              
23             # Exception-related pointcuts do not curry.
24             sub curry_runtime {
25 19     19 1 52 return $_[0];
26             }
27              
28             sub compile_runtime {
29 19     19 1 49 "defined \$_->{exception} and not ref \$_->{exception} and \$_->{exception} eq ''";
30             }
31              
32             1;
33              
34             __END__