package Net::ACME::X;

=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;