File Coverage

blib/lib/DBI/Easy/DriverPatcher.pm
Criterion Covered Total %
statement 9 12 75.0
branch 3 6 50.0
condition n/a
subroutine 2 5 40.0
pod n/a
total 14 23 60.8


line stmt bran cond sub pod time code
1             package DBI::Easy;
2              
3 6     6   34 use strict;
  6         10  
  6         745  
4              
5             BEGIN {
6 6 50   6   33 unless (defined &DBD::SQLite::db::serial_column_type) {
7 6         25 *DBD::SQLite::db::serial_column_type = \&_sqlite_serial_column_type;
8             }
9              
10 6 50       19 unless (defined &DBD::mysql::db::serial_column_type) {
11 6         34 *DBD::mysql::db::serial_column_type = \&_mysql_serial_column_type;
12             }
13              
14 6 50       60 unless (defined &DBD::Pg::db::serial_column_type) {
15 6         394 *DBD::Pg::db::serial_column_type = \&_pg_serial_column_type;
16             }
17            
18             }
19              
20             sub _sqlite_serial_column_type {
21 0     0     return 'autoincrement';
22             }
23              
24             sub _mysql_serial_column_type {
25 0     0     return 'auto_increment';
26             }
27              
28             sub _pg_serial_column_type {
29 0     0     return 'serial';
30             }
31              
32             1;