File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	0	1	0.0
total	23	25	92.0

package Net::ACME::X::Empty;

use strict;
use warnings;

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

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

    my $str;

    if ( defined $args_hr->{'name'} && length $args_hr->{'name'} ) {
        $str = "“$args_hr->{'name'}” cannot be empty!";
    }
    else {
        $str = 'This value cannot be empty!';
    }

    return $class->SUPER::new($str, $args_hr);
}

1;