File Coverage

blib/lib/Aspect/Point/After.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Aspect::Point::After;
2              
3 21     21   78 use strict;
  21         26  
  21         511  
4 21     21   73 use warnings;
  21         24  
  21         419  
5 21     21   74 use Aspect::Point ();
  21         25  
  21         882  
6              
7             our $VERSION = '0.97_06';
8             our @ISA = 'Aspect::Point';
9              
10 21     21   76 use constant type => 'after';
  21         25  
  21         2149  
11              
12             sub exception {
13 24 100   24 0 135 return $_[0]->{exception} if defined wantarray;
14 20         462 $_[0]->{exception} = $_[1];
15             }
16              
17             1;
18              
19             __END__