File Coverage

blib/lib/Aspect/Library/Breakpoint.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 1 0.0
total 16 22 72.7


line stmt bran cond sub pod time code
1             package Aspect::Library::Breakpoint;
2              
3 1     1   1652 use strict;
  1         1  
  1         34  
4 1     1   521 use Aspect::Library ();
  1         3  
  1         15  
5 1     1   5 use Aspect::Advice::Before ();
  1         2  
  1         306  
6              
7             our $VERSION = '1.04';
8             our @ISA = 'Aspect::Library';
9              
10             sub get_advice {
11 0     0 0   my $self = shift;
12             Aspect::Advice::Before->new(
13             lexical => $self->lexical,
14             pointcut => $_[0],
15             code => sub {
16 1     1   6 no warnings;
  1         2  
  1         79  
17 0     0     $DB::single = 1;
18             },
19 0           );
20             }
21              
22             1;
23              
24             __END__