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   1481 use strict;
  2         5  
  2         44  
3 2     2   9 use warnings;
  2         2  
  2         39  
4              
5 2     2   365 use DBIx::TransactionManager;
  2         2824  
  2         40  
6 2     2   368 use DBIx::TransactionManager::Extended;
  2         3  
  2         83  
7              
8             *_super_new = DBIx::TransactionManager->can('new');
9              
10             {
11 2     2   10 no warnings qw/redefine/;
  2         4  
  2         166  
12             *DBIx::TransactionManager::new = \&_new;
13             }
14              
15 1     1   451 sub _new { _super_new('DBIx::TransactionManager::Extended', @_[1..$#_]) }
16              
17             1;
18             __END__