File Coverage

blib/lib/Net/ACME2/LetsEncrypt.pm

Criterion	Covered	Total	%
statement	15	18	83.3
branch	1	6	16.6
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	21	30	70.0

package Net::ACME2::LetsEncrypt;

use strict;
use warnings;

use parent qw( Net::ACME2 );

=encoding utf-8

=head1 NAME

Net::ACME2::LetsEncrypt - Let’s Encrypt’s v2 API endpoint

=head1 SYNOPSIS

    my $acme = Net::ACME2::LetsEncrypt->new(

        environment => 'staging',   #default: “production”

        # ... and other arg(s) as described in Net::ACME2
    );

See L for usage examples.

=head1 STAGING VS. PRODUCTION

This class’s constructor accepts an optional C parameter.
If you set this to C, you’ll get
L
rather than the (default) C server.

=cut

use constant {
    DIRECTORY_PATH => '/directory',

    _STAGING_SERVER    => 'acme-staging-v02.api.letsencrypt.org',
    _PRODUCTION_SERVER => 'acme-v02.api.letsencrypt.org',
};

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

    if ( my $env = $opts{'environment'} ) {
        if ($env eq 'staging') {
            return _STAGING_SERVER();
        }
        elsif ($env ne 'production') {
            die "Invalid “environment”! ($env)";
        }
    }

    return _PRODUCTION_SERVER();
}

1;