File Coverage

lib/Aspect/Pointcut/Call.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Aspect::Pointcut::Call;
2              
3 1     1   37465 use strict;
  1         2  
  1         36  
4 1     1   6 use warnings;
  1         2  
  1         33  
5 1     1   4 use Carp;
  1         6  
  1         61  
6              
7 1     1   4 use base 'Aspect::Pointcut';
  1         1  
  1         377  
8              
9 12     12 0 249 sub init { shift->{spec} = pop }
10              
11             sub match_define {
12 21912     21912 0 19954 my ($self, $sub_name) = @_;
13 21912         35349 return $self->match($self->{spec}, $sub_name);
14             }
15              
16             1;