File Coverage

blib/lib/Business/OnlinePayment/Multiplex.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Business::OnlinePayment::Multiplex;
2              
3 1     1   936 use 5.008004;
  1         5  
  1         43  
4 1     1   7 use strict;
  1         2  
  1         36  
5 1     1   26 use warnings;
  1         2  
  1         33  
6 1     1   5 use Carp;
  1         2  
  1         86  
7 1     1   7 use Business::OnlinePayment;
  1         2  
  1         213  
8              
9             our @ISA = qw(Business::OnlinePayment);
10              
11             our @EXPORT_OK = ();
12              
13             our @EXPORT = ();
14              
15             our $VERSION = '0.01';
16              
17              
18             sub submit {
19             my $self = shift;
20             my %content = $self->content();
21             &{$content{submit}}($self);
22             }
23              
24             1;
25             __END__