—

              
package Net::ACME::X;
HideShow 8 lines of Pod
=encoding utf-8
=head1 NAME
Net::ACME::X - Exception objects for Net::ACME
=cut
use strict;
use warnings;
use File::Spec ();
sub create {
    my ( $type, @args ) = @_;
    my $x_package = "Net::ACME::X::$type";
    my $x_pkg_path = File::Spec->catfile( split m<::>, $x_package ) . '.pm';
    require $x_pkg_path;
    return $x_package->new(@args);
}
1;