File Coverage

lib/Crypt/Perl/X.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Crypt::Perl::X;
2              
3             =encoding utf-8
4              
5             =head1 NAME
6              
7             Crypt::Perl::X - Exception objects for Crypt::Perl
8              
9             =cut
10              
11 20     20   121 use strict;
  20         36  
  20         502  
12 20     20   86 use warnings;
  20         54  
  20         511  
13              
14 20     20   7576 use Module::Load ();
  20         16844  
  20         1269  
15              
16             sub create {
17 1210     1210 0 3613 my ( $type, @args ) = @_;
18              
19 1210         3057 my $x_package = "Crypt::Perl::X::$type";
20              
21 1210         4464 Module::Load::load($x_package);
22              
23 1210         110431 return $x_package->new(@args);
24             }
25              
26             1;