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 16     16   116977 use strict;
  16         43  
  16         463  
12 16     16   79 use warnings;
  16         26  
  16         364  
13              
14 16     16   80 use File::Spec ();
  16         42  
  16         1761  
15              
16             sub create {
17 22     22 0 11328 my ( $type, @args ) = @_;
18              
19 22         59 my $x_package = "Net::ACME::X::$type";
20              
21 22         412 my $x_pkg_path = File::Spec->catfile( split m<::>, $x_package ) . '.pm';
22              
23 22         8157 require $x_pkg_path;
24              
25 22         179 return $x_package->new(@args);
26             }
27              
28             1;