File Coverage

blib/lib/Net/ACME/X/HashBase.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	24	28	85.7

package Net::ACME::X::HashBase;

use strict;
use warnings;

use parent qw( Net::ACME::X::OverloadBase );

sub new {
    my ( $class, $string, $props_hr ) = @_;

    $class->_check_overload();

    my %attrs = $props_hr ? %$props_hr : ();

    return bless [ $string, \%attrs ], $class;
}

sub get {
    my ( $self, $attr ) = @_;

    #Do we need to clone this? Could JSON suffice, or do we need Clone?
    return $self->[1]{$attr};
}

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

    return $self->[0];
}

1;