File Coverage

blib/lib/DBIx/QuickDB/Driver/Percona.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 29 31 93.5


line stmt bran cond sub pod time code
1             package DBIx::QuickDB::Driver::Percona;
2 8     8   147098 use strict;
  8         12  
  8         233  
3 8     8   27 use warnings;
  8         11  
  8         463  
4              
5             our $VERSION = '0.000052';
6              
7 8     8   1687 use IPC::Cmd qw/can_run/;
  8         136424  
  8         430  
8 8     8   1789 use Capture::Tiny qw/capture/;
  8         28648  
  8         387  
9              
10 8     8   39 use parent 'DBIx::QuickDB::Driver::MySQLCom';
  8         11  
  8         48  
11 8     8   402 use DBIx::QuickDB::Util::HashBase;
  8         13  
  8         37  
12              
13 14     14 0 35 sub provider { 'Percona Server' }
14              
15 14     14 0 22 sub dbd_driver_order { my $class = shift; $class->SUPER::dbd_driver_order($ENV{QDB_PERCONA_DBD}) }
  14         67  
16              
17             1;
18              
19             __END__