File Coverage

blib/lib/Class/Accessor/Named.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Class::Accessor::Named;
2              
3             our $VERSION = '0.009';
4              
5 1     1   22125 use warnings;
  1         2  
  1         29  
6 1     1   6 use strict;
  1         1  
  1         35  
7 1     1   6 use Carp;
  1         5  
  1         188  
8              
9              
10 1     1   761 use Sub::Name qw/subname/;
  1         702  
  1         50  
11 1     1   904 use Hook::LexWrap qw/wrap/;
  1         4161  
  1         6  
12 1     1   728 use UNIVERSAL::require;
  1         1607  
  1         9  
13             # Module implementation here
14              
15             foreach my $class (qw(Class::Accessor Class::Accessor::Fast)) {
16             $class->require();
17             foreach my $func (qw(make_accessor make_ro_accessor make_wo_accessor)) {
18             wrap $class. "::" . $func, post => sub { $_[-1] = subname $_[0] . "::" . $_[1] => $_[-1] };
19             }
20             }
21              
22              
23              
24             1; # Magic true value required at end of module
25             __END__