File Coverage

lib/List/Objects/WithUtils/Hash/Inflated/RW.pm
Criterion Covered Total %
statement 19 19 100.0
branch 8 8 100.0
condition n/a
subroutine 5 5 100.0
total 32 32 100.0


line stmt bran cond sub code
1         package List::Objects::WithUtils::Hash::Inflated::RW;
2 1     1 use strictures 1;
  1        
  1        
3 1     1 use Carp ();
  1        
  1        
4 1     1 use Scalar::Util ();
  1        
  1        
5          
6 1     1 use parent 'List::Objects::WithUtils::Hash::Inflated';
  1        
  1        
7          
8         our $AUTOLOAD;
9         sub AUTOLOAD {
10 6     6   my $self = shift;
11 6         ( my $method = $AUTOLOAD ) =~ s/.*:://;
12 6 100       Scalar::Util::blessed($self)
13             or Carp::confess "Not a class method: '$method'";
14          
15 5 100       Carp::confess "Can't locate object method '$method'"
16             unless exists $self->{$method};
17 4 100       return $self->{$method} unless @_;
18 2 100       Carp::confess "Multiple arguments passed to setter '$method'"
19             if @_ > 1;
20 1         $self->{$method} = $_[0]
21         }
22          
23         1;
24          
25         =pod
26        
27         =for Pod::Coverage AUTOLOAD
28        
29         =cut
30