File Coverage

blib/lib/DBIx/TransactionManager/Extended/Compat.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1             package DBIx::TransactionManager::Extended::Compat;
2 2     2   1170 use strict;
  2         2  
  2         47  
3 2     2   5 use warnings;
  2         2  
  2         41  
4              
5 2     2   398 use DBIx::TransactionManager;
  2         2014  
  2         34  
6 2     2   313 use DBIx::TransactionManager::Extended;
  2         2  
  2         61  
7              
8             *_super_new = DBIx::TransactionManager->can('new');
9              
10             {
11 2     2   7 no warnings qw/redefine/;
  2         2  
  2         144  
12             *DBIx::TransactionManager::new = \&_new;
13             }
14              
15 1     1   328 sub _new { _super_new('DBIx::TransactionManager::Extended', @_[1..$#_])->_initialize() }
16              
17             1;
18             __END__