| line |
true |
false |
branch |
|
163
|
5 |
1 |
if (scalar keys %hshprms > 0) |
|
164
|
1 |
4 |
if defined $hshprms{'filedirectory'} |
|
165
|
1 |
4 |
if defined $hshprms{'filename'} |
|
166
|
4 |
1 |
if defined $hshprms{'filepath'} |
|
204
|
5 |
0 |
if (scalar @_ > 1) { } |
|
212
|
0 |
5 |
unless defined $self->{'_directory_name'} |
|
214
|
5 |
0 |
if ($self->{'_directory_name'} ne "") |
|
215
|
1 |
4 |
unless $self->{'_directory_name'} =~ qr"/$" |
|
243
|
5 |
0 |
if (scalar @_ > 1) { } |
|
251
|
0 |
5 |
unless defined $self->{'_file_name'} |
|
262
|
4 |
0 |
if ($sdirnm ne "") |
|
263
|
4 |
0 |
if (index($sdirnm, '/') != -1) { } |
|
264
|
4 |
0 |
if ($sdirnm =~ qr"(.*/)([^/]+)$") |
|
287
|
0 |
0 |
if ($sflnm ne '') { } |
|
290
|
0 |
0 |
if (index($sflnm, "/") != -1) |
|
291
|
0 |
0 |
if ($sflnm =~ qr"(.*/)([^/]+)$") |
|
298
|
0 |
0 |
if $sdirnm eq "" |
|
301
|
0 |
0 |
if ($self->Exists) { } |
|
304
|
0 |
0 |
if ($irs) { } |
|
321
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
329
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
335
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
348
|
3 |
0 |
if (scalar @_ > 1) |
|
349
|
3 |
0 |
if (ref $_[1] eq '') { } |
|
358
|
0 |
3 |
unless defined $self->{'_file_content'} |
|
369
|
1 |
0 |
if (scalar @_ > 1) |
|
370
|
0 |
1 |
if (ref $_[1] eq '') { } |
|
384
|
0 |
0 |
if ($self->Exists) { } |
|
389
|
0 |
0 |
if ($irs < 1) |
|
398
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
406
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
415
|
0 |
0 |
if (scalar @_ > 1) { } |
|
416
|
0 |
0 |
if ($_[1] =~ qr/^\d+$/) { } |
|
420
|
0 |
0 |
if ($_[1] != 0) { } |
|
441
|
0 |
0 |
if (scalar @_ > 1) { } |
|
442
|
0 |
0 |
if ($_[1] =~ qr/^\d+$/) { } |
|
446
|
0 |
0 |
if ($_[1] != 0) { } |
|
474
|
0 |
1 |
if ($self->_isOpen) |
|
477
|
0 |
0 |
if $self->_isWritable |
|
480
|
0 |
1 |
if ($self->_isOpen) { } |
|
481
|
1 |
0 |
if ($self->Exists) { } |
|
486
|
1 |
0 |
if (defined $irs) { } |
|
489
|
1 |
0 |
if ($irs) |
|
503
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
516
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
531
|
0 |
4 |
if ($self->_isWritable) { } |
|
532
|
0 |
4 |
if $self->_isOpen |
|
534
|
4 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
535
|
3 |
1 |
if (-d $self->{'_directory_name'}) { } |
|
551
|
0 |
1 |
if ($@) |
|
560
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
565
|
1 |
0 |
if $idircnt != -1 |
|
577
|
4 |
0 |
if ($irs) |
|
578
|
4 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
583
|
4 |
0 |
if (defined $irs) { } |
|
588
|
4 |
0 |
if ($irs) |
|
602
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
610
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
628
|
0 |
0 |
if ($self->_isAppendable) { } |
|
629
|
0 |
0 |
if $self->_isOpen |
|
631
|
0 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
632
|
0 |
0 |
if (-d $self->{'_directory_name'}) { } |
|
643
|
0 |
0 |
if ($@) |
|
652
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
657
|
0 |
0 |
if $idircnt != -1 |
|
669
|
0 |
0 |
if ($irs) |
|
670
|
0 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
675
|
0 |
0 |
if (defined $irs) { } |
|
681
|
0 |
0 |
if $irs |
|
683
|
0 |
0 |
if ($irs) |
|
697
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
705
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
723
|
1 |
0 |
unless $self->{'_buffered'} |
|
727
|
0 |
1 |
if $self->_isWritable |
|
729
|
1 |
0 |
unless $self->_isOpen |
|
731
|
1 |
0 |
if ($self->_isOpen) |
|
739
|
2 |
0 |
if (defined $irdcnt) { } |
|
740
|
1 |
1 |
if $irdcnt > 0 |
|
751
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
755
|
1 |
0 |
unless $! |
|
757
|
1 |
0 |
if ($irs) |
|
760
|
1 |
0 |
if (scalar @arrflstt > 0) { } |
|
771
|
0 |
1 |
if ($self->{'_persistent'}) { } |
|
772
|
0 |
0 |
unless ($irs) |
|
819
|
0 |
4 |
unless $self->{'_buffered'} |
|
824
|
4 |
0 |
unless ($self->_isWritable) |
|
825
|
0 |
4 |
if $self->_isOpen |
|
831
|
4 |
0 |
if ($self->_isWritable) |
|
841
|
4 |
0 |
if (defined $iwrtcnt) { } |
|
844
|
0 |
4 |
if ($iwrtcnt != $icntntlen) |
|
860
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
863
|
4 |
0 |
if ($irs) |
|
866
|
4 |
0 |
if (scalar @arrflstt > 0) { } |
|
878
|
0 |
4 |
if ($self->{'_persistent'}) { } |
|
879
|
0 |
0 |
unless ($irs) |
|
916
|
0 |
0 |
if (scalar @_ > 1) |
|
917
|
0 |
0 |
if (ref $_[1] ne '') { } |
|
924
|
0 |
0 |
if ($$rcntntln ne "") |
|
925
|
0 |
0 |
if ($self->{'_buffered'} > 0) |
|
931
|
0 |
0 |
unless ($self->_isAppendable) |
|
932
|
0 |
0 |
if $self->_isOpen |
|
938
|
0 |
0 |
if ($self->_isAppendable) |
|
947
|
0 |
0 |
if (defined $iwrtcnt) { } |
|
950
|
0 |
0 |
if ($iwrtcnt != $icntntlen) |
|
966
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
969
|
0 |
0 |
if ($irs) |
|
972
|
0 |
0 |
if (scalar @arrflstt > 0) { } |
|
983
|
0 |
0 |
if ($self->{'_persistent'} > 0) { } |
|
984
|
0 |
0 |
unless ($irs > 0) |
|
1016
|
0 |
4 |
if $self->_isOpen |
|
1018
|
2 |
2 |
if ($self->Exists) { } |
|
1021
|
0 |
2 |
if ($irs < 1) |
|
1029
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1046
|
5 |
0 |
if ($self->_isOpen) { } |
|
1047
|
5 |
0 |
if ($self->{'_locked'} > 0) |
|
1050
|
5 |
0 |
if ($irs) { } |
|
1057
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1067
|
0 |
5 |
unless ($irs > 0) |
|
1074
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1099
|
0 |
10 |
if $self->_isOpen |
|
1125
|
0 |
6 |
if ($self->_isOpen) |
|
1155
|
0 |
5 |
unless defined $self->{'_file_content'} |
|
1157
|
3 |
2 |
if (${$self->{'_file_content'};} eq "") |
|
1163
|
1 |
2 |
if (scalar @{$self->{'_file_content_lines'};} > 0) |
|
1177
|
1 |
0 |
unless defined $self->{'_file_content_lines'} |
|
1179
|
1 |
0 |
if (scalar @{$self->{'_file_content_lines'};} == 0) |
|
1180
|
1 |
0 |
if (${$self->{'_file_content'};} ne "") |
|
1191
|
0 |
0 |
if ($self->Exists) { } |
|
1192
|
0 |
0 |
if ($self->{'_file_time'} < 0) |
|
1199
|
0 |
0 |
if (scalar @arrflstt > 0) { } |
|
1208
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1225
|
5 |
0 |
if ($self->Exists) { } |
|
1226
|
5 |
0 |
if ($self->{'_file_size'} < 0) |
|
1233
|
5 |
0 |
if (scalar @arrflstt > 0) { } |
|
1242
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1260
|
0 |
17 |
if ($self->_isOpen) { } |
|
1261
|
17 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
1262
|
17 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
1263
|
15 |
2 |
if -d $self->{'_directory_name'} |
|
1270
|
15 |
2 |
if ($irs) |
|
1271
|
3 |
12 |
unless -e $self->{'_directory_name'} . $self->{'_file_name'} |
|
1277
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1292
|
10 |
57 |
if (defined $self->{'_file'}) { } |
|
1293
|
10 |
0 |
if fileno $self->{'_file'} |
|
1297
|
0 |
57 |
unless exists $self->{'_file'} |
|
1307
|
4 |
9 |
if ($self->_isOpen) |
|
1308
|
4 |
0 |
if defined $self->{'_writable'} |
|
1318
|
0 |
0 |
if ($self->_isOpen) |
|
1319
|
0 |
0 |
if defined $self->{'_appendable'} |