| line |
true |
false |
branch |
|
146
|
0 |
0 |
unless (defined $user_args{'file_name'} and defined $user_args{'fields'}[0]) |
|
152
|
0 |
0 |
defined $user_args{'location'} ? : |
|
154
|
0 |
0 |
defined $user_args{'delimiter'} ? : |
|
156
|
0 |
0 |
defined $user_args{'append'} ? : |
|
158
|
0 |
0 |
defined $user_args{'column_width'} ? : |
|
164
|
0 |
0 |
defined $user_args{'die'} ? : |
|
187
|
0 |
0 |
unless (defined $$data_table_ref{'append'} and $$data_table_ref{'append'} == 1 and -f $$data_table_ref{'l_o_f'}) |
|
193
|
0 |
0 |
unless open DT, '>', $$data_table_ref{'l_o_f'} |
|
200
|
0 |
0 |
if ($_ == $#entry) { } |
|
244
|
0 |
0 |
if @entry != $$this{'f_c'} |
|
249
|
0 |
0 |
unless open DT, '>>', $$this{'l_o_f'} |
|
255
|
0 |
0 |
if ($_ == $#entry) { } |
|
305
|
0 |
0 |
unless open DT, '<', $$this{'l_o_f'} |
|
325
|
0 |
0 |
unless grep /^$field_name$/, @all_fields |
|
330
|
0 |
0 |
unless copy($$this{'l_o_f'}, '.tmp') |
|
335
|
0 |
0 |
unless (-f '.tmp') |
|
343
|
0 |
0 |
unless open DT, '>', $$this{'l_o_f'} |
|
349
|
0 |
0 |
if $all_fields[$_] eq $field_name |
|
355
|
0 |
0 |
unless open TMP, '<', '.tmp' |
|
357
|
0 |
0 |
if ($_ =~ /$record/) |
|
363
|
0 |
0 |
if ($database_line[$given_field_index] eq $record) |
|
413
|
0 |
0 |
unless open DT, '<', $$this{'l_o_f'} |
|
429
|
0 |
0 |
unless grep /^$field_name$/, @all_fields |
|
435
|
0 |
0 |
if $all_fields[$_] eq $field_name |
|
442
|
0 |
0 |
if ($_ =~ /$record/) |
|
448
|
0 |
0 |
if ($database_line[$given_field_index] eq $record) |
|
486
|
0 |
0 |
if @_ |
|
496
|
0 |
0 |
unless open DT, '<', $$this{'l_o_f'} |
|
511
|
0 |
0 |
unless grep /^$field_name$/, @all_fields |
|
512
|
0 |
0 |
if defined $specific_field and not grep(/^$specific_field$/, @all_fields) |
|
513
|
0 |
0 |
if defined $specific_field and $specific_field eq $field_name |
|
519
|
0 |
0 |
if $all_fields[$_] eq $field_name |
|
525
|
0 |
0 |
if (defined $specific_field) |
|
527
|
0 |
0 |
if $all_fields[$_] eq $specific_field |
|
535
|
0 |
0 |
if ($_ =~ /$record/) |
|
541
|
0 |
0 |
if $database_line[$given_field_index] eq $record |
|
542
|
0 |
0 |
if defined $specific_field and $database_line[$given_field_index] eq $record |
|
564
|
0 |
0 |
unless open DT, '<', $$this{'l_o_f'} |
|
592
|
0 |
0 |
unless open DT, '<', $$this{'l_o_f'} |
|
625
|
0 |
0 |
if $field eq $pattern |
|
641
|
0 |
0 |
if ($$this{'die'} == 1) { } |