view release on metacpan or  search on metacpan

lib/Net/ACME/X.pm  view on Meta::CPAN

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;