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   28 use warnings;
  6         11  
  6         233  
4 6     6   34 use strict;
  6         8  
  6         226  
5 6     6   28 use utf8;
  6         15  
  6         33  
6 6     6   1422 use Class::Load ();
  6         42705  
  6         671  
7              
8             our $VERSION = '0.922'; # VERSION
9              
10             sub load_class {
11 17     17 1 41 my ($driver_name, $class_name) = @_;
12 17         111 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__