File Coverage

blib/lib/Net/ACME/X.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Net::ACME::X;
2              
3             =encoding utf-8
4              
5             =head1 NAME
6              
7             Net::ACME::X - Exception objects for Net::ACME
8              
9             =cut
10              
11 17     17   67490 use strict;
  17         44  
  17         404  
12 17     17   49 use warnings;
  17         16  
  17         288  
13              
14 17     17   50 use File::Spec ();
  17         15  
  17         1285  
15              
16             sub create {
17 22     22 0 5194 my ( $type, @args ) = @_;
18              
19 22         43 my $x_package = "Net::ACME::X::$type";
20              
21 22         329 my $x_pkg_path = File::Spec->catfile( split m<::>, $x_package ) . '.pm';
22              
23 22         6956 require $x_pkg_path;
24              
25 22         134 return $x_package->new(@args);
26             }
27              
28             1;