File Coverage

blib/lib/Net/ACME/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

package Net::ACME::AccessorBase;

use strict;
use warnings;

our $AUTOLOAD;

#sub _ACCESSORS { ... }

sub new {
    my ($class, %opts) = @_;

    $opts{"_$_"} = delete $opts{$_} for keys %opts;

    return bless \%opts, $class;
}

sub AUTOLOAD {
    my ($self) = @_;

    $AUTOLOAD =~ m<(.+)::(.+)> or die "Weird func name: “$AUTOLOAD”!";
    my ($class, $method) = ($1, $2);

    if ( grep { $method eq $_ } $self->_ACCESSORS() ) {
        return $self->{"_$method"};
    }

    return if $method eq 'DESTROY';

    die "“$class” doesn’t define a method “$method”!";
}

1;