| blib/lib/DBI/Shell.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 109 | 22.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 549 | 0 | 1 | 4 | $sh->{'config_file'} and -f $sh->{'config_file'} |
| 940 | 0 | 0 | 1 | not $sh->{'debug'} and $err =~ /^DBD::\w+::\w+ \w+/ |
| 1097 | 9 | 0 | 0 | defined $user and length $user |
| 1103 | 9 | 0 | 0 | $sh->{'user'} and not defined $sh->{'password'} |
| 1211 | 0 | 24 | 2 | $num and $num =~ /^\-\d+$/ |
| 1217 | 0 | 0 | 26 | $num and $num =~ /^\d+$/ |
| 0 | 0 | 26 | $num and $num =~ /^\d+$/ and defined $sh->{'chistory'}[$num - 1] | |
| 1248 | 0 | 0 | 0 | @args and $args[0] =~ /^\d+$/ |
| 1418 | 0 | 0 | 0 | exists $sh->{'desc_show_long'} and $sh->{'desc_show_long'} == 1 |
| 1420 | 0 | 0 | 0 | exists $sh->{'desc_show_columns'} and defined $sh->{'desc_show_columns'} |
| 1443 | 0 | 0 | 0 | exists $sh->{'desc_show_remarks'} and $sh->{'desc_show_remarks'} == 1 |
| 0 | 0 | 0 | exists $sh->{'desc_show_remarks'} and $sh->{'desc_show_remarks'} == 1 and not grep({/REMARK/i;} @names) | |
| 1485 | 0 | 0 | 0 | exists $sh->{'desc_show_long'} and $sh->{'desc_show_long'} == 0 |
| 0 | 0 | 0 | $dcol eq 'TYPE_NAME' and (exists $sh->{'desc_show_long'} and $sh->{'desc_show_long'} == 0) | |
| 1570 | 0 | 0 | 0 | defined $sth->{'SCALE'}[$c] and $sth->{'SCALE'}[$c] ne 0 |
| 1612 | 0 | 0 | 47 | $opt_name and $sh->{'options'}{$opt_name} |
| line | l | !l | condition |
|---|---|---|---|
| 254 | 0 | 7 | $ENV{'VISUAL'} || $ENV{'EDITOR'} || 'vi' |
| 0 | 7 | $ENV{'DBISH_DEBUG'} || 0 | |
| 470 | 0 | 0 | shift @args || $ENV{'DBI_DSN'} || '' |
| 473 | 0 | 7 | $ENV{'DBI_USER'} || '' |
| 475 | 0 | 7 | $ENV{'DBI_PASS'} || undef |
| 599 | 0 | 0 | $4 || '' |
| 610 | 0 | 0 | $args_string || '' |
| 890 | 0 | 0 | $commands->{$cmd}{'hint'} || '' |
| 900 | 22 | 0 | $args[0] || '' |
| 958 | 0 | 53 | $sth->{'NUM_OF_PARAMS'} || 0 |
| 993 | 53 | 0 | $sh->{'display'} || die('panic: no display set') |
| 994 | 53 | 0 | $sh->{'out_fh'} || \*STDOUT |
| 1168 | 0 | 0 | $sh->{'prev_buffer'} || '' |
| 1258 | 0 | 0 | $sh->{'tmp_dir'} || $ENV{'DBISH_TMP'} || $ENV{'TMP'} || $ENV{'TEMP'} || $ENV{'HOME'} || $ENV{'HOMEDRIVE'} . $ENV{'HOMEPATH'} || '.' |
| 1528 | 0 | 0 | $sh->{'out_fh'} || \*STDOUT |
| 1552 | 0 | 0 | $sth->{'NAME'}[$c] || 0 |
| 1567 | 0 | 0 | '(' . $sth->{'PRECISION'}[$c] || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 254 | 7 | 0 | 0 | $ENV{'HOME'} || "$ENV{'HOMEDRIVE'}$ENV{'HOMEPATH'}" |
| 546 | 5 | 0 | 0 | $ENV{'HOME'} || "$ENV{'HOMEDRIVE'}$ENV{'HOMEPATH'}" |
| 547 | 4 | 1 | 0 | $ENV{'DBISH_CONFIG'} || "$homedir/.dbish_config" |
| 956 | 51 | 2 | 0 | $execute or not $sth->{'Active'} |
| 1249 | 0 | 0 | 0 | $sh->{'current_buffer'} ||= $sh->{'prev_buffer'} |
| 1260 | 0 | 0 | 0 | $sh->{'tmp_file'} || "dbish$$.sql" |
| 1470 | 0 | 0 | 0 | $row->{'TYPE_NAME'} || $row->{'DATA_TYPE'} |
| 1487 | 0 | 0 | 0 | $row->{'TYPE_NAME'} || $row->{'DATA_TYPE'} |
| 1611 | 47 | 0 | 0 | $options->{$opt_name} || $opt_name |