| line |
true |
false |
branch |
|
97
|
0 |
0 |
unless ($dbh) |
|
99
|
0 |
0 |
unless $dbh = 'DBI'->connect($args{'dsn'}, $args{'user'}, $args{'password'}, {}) |
|
106
|
0 |
0 |
wantarray ? : |
|
178
|
0 |
0 |
unless ($args{'fh'}) |
|
180
|
0 |
0 |
unless open $args{'fh'}, '<', $args{'sql'} |
|
255
|
0 |
0 |
'ARRAY' eq ref $args{'sql'} ? : |
|
268
|
0 |
0 |
unless $statement =~ /^\s*[A-Z][A-Z]/im |
|
269
|
0 |
0 |
if $args{'verbose'} |
|
272
|
0 |
0 |
if (not $sth) { } |
|
273
|
0 |
0 |
if (not $args{'force'}) { } |
|
280
|
0 |
0 |
if (not $status) { } |
|
|
0 |
0 |
elsif (defined $sth->{'NUM_OF_FIELDS'} and 0 < $sth->{'NUM_OF_FIELDS'}) { } |
|
281
|
0 |
0 |
if (not $args{'force'}) { } |
|
288
|
0 |
0 |
if ($args{'output_bool'}) { } |
|
|
0 |
0 |
elsif ($args{'output_string'}) { } |
|
353
|
0 |
0 |
unless ($options{'formatter'}) |
|
354
|
0 |
0 |
if (eval {
do {
require 'Text/Table.pm'
}
}) { } |
|
366
|
0 |
0 |
if (@columns) |
|
368
|
0 |
0 |
if ($no_header_when_empty and not @$res) { } |
|
|
0 |
0 |
elsif ('tab' eq $options{'formatter'}) { } |
|
374
|
0 |
0 |
$print_header ? : |
|
380
|
0 |
0 |
unless ($class->can('table') or $class->can('new')) |
|
388
|
0 |
0 |
if (not $class->isa('Text::Table') and my $table = $class->can('table')) { } |
|
437
|
1 |
2 |
unless $statement =~ /\S/ |
|
438
|
0 |
2 |
if ($statement =~ /^\s*CREATE\s+TRIGGER\b/i) { } |
|
|
0 |
2 |
elsif ($trigger) { } |
|
441
|
0 |
0 |
unless $statement =~ /END$/i |
|
447
|
0 |
0 |
unless $statement =~ /END$/i |
|
475
|
1 |
5 |
unless ($argv) |
|
477
|
6 |
0 |
if (GetOptionsFromArray($argv, 'user:s', \my $user, 'password:s', \my $password, 'dsn:s', \my $dsn, 'verbose', \my $verbose, 'force|f', \my $force, 'sql:s', \my $sql, 'bool', \my $output_bool, 'string', \my $output_string, 'quiet', \my $no_header_when_empty, 'format:s', \my $formatter_class, 'help|h', \my $help, 'man', \my $man)) { } |
|
493
|
3 |
3 |
if ($sql and not -f $sql) |
|
497
|
3 |
0 |
unless ($sql or @$argv) |
|
525
|
0 |
6 |
unless my $opts = $package->parse_command_line($appname, $argv) |
|
527
|
0 |
6 |
if $opts->{'help'} |
|
528
|
0 |
6 |
if $opts->{'man'} |