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   1245 use strict;
  2         3  
  2         48  
3 2     2   6 use warnings;
  2         1  
  2         44  
4              
5 2     2   423 use DBIx::TransactionManager;
  2         2248  
  2         39  
6 2     2   377 use DBIx::TransactionManager::Extended;
  2         1  
  2         85  
7              
8             *_super_new = DBIx::TransactionManager->can('new');
9              
10             {
11 2     2   8 no warnings qw/redefine/;
  2         2  
  2         154  
12             *DBIx::TransactionManager::new = \&_new;
13             }
14              
15 1     1   696 sub _new { _super_new('DBIx::TransactionManager::Extended', @_[1..$#_])->_initialize() }
16              
17             1;
18             __END__