File Coverage

blib/lib/Aspect/Library/Breakpoint.pm
Criterion Covered Total %
statement 15 18 83.3
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 1 0.0
total 20 26 76.9


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