File Coverage

blib/lib/Business/CPI/Util.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Business::CPI::Util;
2             # ABSTRACT: Utilities for Business::CPI
3 6     6   27 use warnings;
  6         9  
  6         163  
4 6     6   23 use strict;
  6         8  
  6         126  
5 6     6   20 use utf8;
  6         8  
  6         24  
6 6     6   971 use Class::Load ();
  6         35764  
  6         563  
7              
8             our $VERSION = '0.924'; # VERSION
9              
10             sub load_class {
11 17     17 1 40 my ($driver_name, $class_name) = @_;
12 17         163 return Class::Load::load_first_existing_class(
13             "Business::CPI::${driver_name}::${class_name}",
14             "Business::CPI::Base::${class_name}"
15             );
16             }
17              
18             1;
19              
20             __END__