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 3     3   66220 use strict;
  3         4  
  3         70  
12 3     3   9 use warnings;
  3         3  
  3         55  
13              
14 3     3   7 use File::Spec ();
  3         3  
  3         239  
15              
16             sub create {
17 11     11 0 3311 my ( $type, @args ) = @_;
18              
19 11         19 my $x_package = "Net::ACME::X::$type";
20              
21 11         131 my $x_pkg_path = File::Spec->catfile( split m<::>, $x_package ) . '.pm';
22              
23 11         2758 require $x_pkg_path;
24              
25 11         53 return $x_package->new(@args);
26             }
27              
28             1;