File Coverage

blib/lib/Aspect/Point/Static.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 6 66.6
pod 1 1 100.0
total 17 24 70.8


line stmt bran cond sub pod time code
1             package Aspect::Point::Static;
2              
3             =pod
4              
5             =head1 NAME
6              
7             Aspect::Point - The Join Point context for join point static parts
8              
9             =head1 SYNOPSIS
10              
11             =head1 METHODS
12              
13             =cut
14              
15 21     21   75 use strict;
  21         25  
  21         505  
16 21     21   69 use warnings;
  21         23  
  21         405  
17 21     21   82 use Carp ();
  21         24  
  21         249  
18 21     21   8147 use Aspect::Point ();
  21         34  
  21         2997  
19              
20             our $VERSION = '0.97_06';
21             our @ISA = 'Aspect::Point';
22              
23              
24              
25              
26              
27             ######################################################################
28             # Error on anything this doesn't support
29              
30             sub return_value {
31 0     0 1   Carp::croak("Cannot call return_value on static part of join point");
32             }
33              
34             sub AUTOLOAD {
35 0     0     my $self = shift;
36 0           my $key = our $AUTOLOAD;
37 0           $key =~ s/^.*:://;
38 0           Carp::croak("Cannot call $key on static part of join point");
39             }
40              
41             1;
42              
43             =pod
44              
45             =head1 AUTHORS
46              
47             Adam Kennedy Eadamk@cpan.orgE
48              
49             Marcel GrEnauer Emarcel@cpan.orgE
50              
51             Ran Eilam Eeilara@cpan.orgE
52              
53             =head1 COPYRIGHT
54              
55             Copyright 2001 by Marcel GrEnauer
56              
57             Some parts copyright 2009 - 2011 Adam Kennedy.
58              
59             This library is free software; you can redistribute it and/or modify
60             it under the same terms as Perl itself.
61              
62             =cut