File Coverage

blib/lib/Net/ACME2/AccessorBase.pm
Criterion Covered Total %
statement 16 17 94.1
branch 4 6 66.6
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 24 28 85.7


line stmt bran cond sub pod time code
1             package Net::ACME2::AccessorBase;
2              
3 4     4   1641 use strict;
  4         9  
  4         124  
4 4     4   20 use warnings;
  4         7  
  4         998  
5              
6             our $AUTOLOAD;
7              
8             sub new {
9 2     2 0 129 my ($class, %opts) = @_;
10              
11 2         18 $opts{"_$_"} = delete $opts{$_} for keys %opts;
12              
13 2         10 return bless \%opts, $class;
14             }
15              
16             sub AUTOLOAD {
17 8     8   14031 my ($self) = @_;
18              
19 8 50       67 $AUTOLOAD =~ m<(.+)::(.+)> or die "Weird func name: “$AUTOLOAD”!";
20 8         39 my ($class, $method) = ($1, $2);
21              
22 8 100       43 if ( grep { $method eq $_ } $self->_ACCESSORS() ) {
  48         119  
23 6         47 return $self->{"_$method"};
24             }
25              
26 2 50       364 return if $method eq 'DESTROY';
27              
28 0           die "“$class” doesn’t define a method “$method”!";
29             }
30              
31             1;