| line |
true |
false |
branch |
|
161
|
5 |
1 |
if (scalar keys %hshprms > 0) |
|
162
|
1 |
4 |
if defined $hshprms{'filedirectory'} |
|
163
|
1 |
4 |
if defined $hshprms{'filename'} |
|
164
|
4 |
1 |
if defined $hshprms{'filepath'} |
|
202
|
5 |
0 |
if (scalar @_ > 1) { } |
|
210
|
0 |
5 |
unless defined $self->{'_directory_name'} |
|
212
|
5 |
0 |
if ($self->{'_directory_name'} ne "") |
|
213
|
1 |
4 |
unless $self->{'_directory_name'} =~ qr"/$" |
|
243
|
5 |
0 |
if (scalar @_ > 1) { } |
|
251
|
0 |
5 |
unless defined $self->{'_file_name'} |
|
285
|
4 |
0 |
if ($sdirnm ne "") |
|
286
|
4 |
0 |
if (index($sdirnm, '/') != -1) { } |
|
287
|
4 |
0 |
if ($sdirnm =~ qr"(.*/)([^/]+)$") |
|
310
|
0 |
0 |
if ($sflnm ne '') { } |
|
313
|
0 |
0 |
if (index($sflnm, "/") != -1) |
|
314
|
0 |
0 |
if ($sflnm =~ qr"(.*/)([^/]+)$") |
|
321
|
0 |
0 |
if $sdirnm eq "" |
|
324
|
0 |
0 |
if ($self->Exists) { } |
|
327
|
0 |
0 |
if ($irs) { } |
|
344
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
352
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
358
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
371
|
3 |
0 |
if (scalar @_ > 1) |
|
372
|
3 |
0 |
if (ref $_[1] eq '') { } |
|
381
|
0 |
3 |
unless defined $self->{'_file_content'} |
|
392
|
1 |
0 |
if (scalar @_ > 1) |
|
393
|
0 |
1 |
if (ref $_[1] eq '') { } |
|
407
|
0 |
0 |
if ($self->Exists) { } |
|
412
|
0 |
0 |
if ($irs < 1) |
|
421
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
429
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
438
|
0 |
0 |
if (scalar @_ > 1) { } |
|
439
|
0 |
0 |
if ($_[1] =~ qr/^\d+$/) { } |
|
443
|
0 |
0 |
if ($_[1] != 0) { } |
|
464
|
0 |
0 |
if (scalar @_ > 1) { } |
|
465
|
0 |
0 |
if ($_[1] =~ qr/^\d+$/) { } |
|
469
|
0 |
0 |
if ($_[1] != 0) { } |
|
505
|
0 |
1 |
if ($self->_isOpen) |
|
508
|
0 |
0 |
if $self->_isWritable |
|
511
|
0 |
1 |
if ($self->_isOpen) { } |
|
512
|
1 |
0 |
if ($self->Exists) { } |
|
517
|
1 |
0 |
if (defined $irs) { } |
|
520
|
1 |
0 |
if ($irs) |
|
534
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
547
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
562
|
0 |
4 |
if ($self->_isWritable) { } |
|
563
|
0 |
4 |
if $self->_isOpen |
|
565
|
4 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
566
|
3 |
1 |
if (-d $self->{'_directory_name'}) { } |
|
582
|
0 |
1 |
if ($@) |
|
591
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
596
|
1 |
0 |
if $idircnt != -1 |
|
608
|
4 |
0 |
if ($irs) |
|
609
|
4 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
614
|
4 |
0 |
if (defined $irs) { } |
|
619
|
4 |
0 |
if ($irs) |
|
633
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
641
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
659
|
0 |
0 |
if ($self->_isAppendable) { } |
|
660
|
0 |
0 |
if $self->_isOpen |
|
662
|
0 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
663
|
0 |
0 |
if (-d $self->{'_directory_name'}) { } |
|
674
|
0 |
0 |
if ($@) |
|
683
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
688
|
0 |
0 |
if $idircnt != -1 |
|
700
|
0 |
0 |
if ($irs) |
|
701
|
0 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
706
|
0 |
0 |
if (defined $irs) { } |
|
712
|
0 |
0 |
if $irs |
|
714
|
0 |
0 |
if ($irs) |
|
728
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
736
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
754
|
1 |
0 |
unless $self->{'_buffered'} |
|
758
|
0 |
1 |
if $self->_isWritable |
|
760
|
1 |
0 |
unless $self->_isOpen |
|
762
|
1 |
0 |
if ($self->_isOpen) |
|
770
|
2 |
0 |
if (defined $irdcnt) { } |
|
771
|
1 |
1 |
if $irdcnt > 0 |
|
782
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
786
|
1 |
0 |
unless $! |
|
788
|
1 |
0 |
if ($irs) |
|
791
|
1 |
0 |
if (scalar @arrflstt > 0) { } |
|
802
|
0 |
1 |
if ($self->{'_persistent'}) { } |
|
803
|
0 |
0 |
unless ($irs) |
|
858
|
0 |
4 |
unless $self->{'_buffered'} |
|
863
|
4 |
0 |
unless ($self->_isWritable) |
|
864
|
0 |
4 |
if $self->_isOpen |
|
870
|
4 |
0 |
if ($self->_isWritable) |
|
880
|
4 |
0 |
if (defined $iwrtcnt) { } |
|
883
|
0 |
4 |
if ($iwrtcnt != $icntntlen) |
|
899
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
902
|
4 |
0 |
if ($irs) |
|
905
|
4 |
0 |
if (scalar @arrflstt > 0) { } |
|
917
|
0 |
4 |
if ($self->{'_persistent'}) { } |
|
918
|
0 |
0 |
unless ($irs) |
|
955
|
0 |
0 |
if (scalar @_ > 1) |
|
956
|
0 |
0 |
if (ref $_[1] ne '') { } |
|
963
|
0 |
0 |
if ($$rcntntln ne "") |
|
964
|
0 |
0 |
if ($self->{'_buffered'} > 0) |
|
970
|
0 |
0 |
unless ($self->_isAppendable) |
|
971
|
0 |
0 |
if $self->_isOpen |
|
977
|
0 |
0 |
if ($self->_isAppendable) |
|
986
|
0 |
0 |
if (defined $iwrtcnt) { } |
|
989
|
0 |
0 |
if ($iwrtcnt != $icntntlen) |
|
1005
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1008
|
0 |
0 |
if ($irs) |
|
1011
|
0 |
0 |
if (scalar @arrflstt > 0) { } |
|
1022
|
0 |
0 |
if ($self->{'_persistent'} > 0) { } |
|
1023
|
0 |
0 |
unless ($irs > 0) |
|
1055
|
0 |
4 |
if $self->_isOpen |
|
1057
|
2 |
2 |
if ($self->Exists) { } |
|
1060
|
0 |
2 |
if ($irs < 1) |
|
1068
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1085
|
5 |
0 |
if ($self->_isOpen) { } |
|
1086
|
5 |
0 |
if ($self->{'_locked'} > 0) |
|
1089
|
5 |
0 |
if ($irs) { } |
|
1096
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1106
|
0 |
5 |
unless ($irs > 0) |
|
1113
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1145
|
0 |
10 |
if $self->_isOpen |
|
1183
|
0 |
6 |
if ($self->_isOpen) |
|
1213
|
0 |
5 |
unless defined $self->{'_file_content'} |
|
1215
|
3 |
2 |
if (${$self->{'_file_content'};} eq "") |
|
1216
|
1 |
2 |
if (scalar @{$self->{'_file_content_lines'};} > 0) |
|
1230
|
1 |
0 |
unless defined $self->{'_file_content_lines'} |
|
1232
|
1 |
0 |
if (scalar @{$self->{'_file_content_lines'};} == 0) |
|
1233
|
1 |
0 |
if (${$self->{'_file_content'};} ne "") |
|
1244
|
0 |
0 |
if ($self->Exists) { } |
|
1245
|
0 |
0 |
if ($self->{'_file_time'} < 0) |
|
1252
|
0 |
0 |
if (scalar @arrflstt > 0) { } |
|
1261
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1278
|
5 |
0 |
if ($self->Exists) { } |
|
1279
|
5 |
0 |
if ($self->{'_file_size'} < 0) |
|
1286
|
5 |
0 |
if (scalar @arrflstt > 0) { } |
|
1295
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1313
|
0 |
17 |
if ($self->_isOpen) { } |
|
1314
|
17 |
0 |
if ($self->{'_file_name'} ne '') { } |
|
1315
|
17 |
0 |
if ($self->{'_directory_name'} ne '') { } |
|
1316
|
15 |
2 |
if -d $self->{'_directory_name'} |
|
1323
|
15 |
2 |
if ($irs) |
|
1324
|
3 |
12 |
unless -e $self->{'_directory_name'} . $self->{'_file_name'} |
|
1330
|
0 |
0 |
if $self->{'_error_code'} < 1 |
|
1345
|
10 |
57 |
if (defined $self->{'_file'}) { } |
|
1346
|
10 |
0 |
if fileno $self->{'_file'} |
|
1350
|
0 |
57 |
unless exists $self->{'_file'} |
|
1360
|
4 |
9 |
if ($self->_isOpen) |
|
1361
|
4 |
0 |
if defined $self->{'_writable'} |
|
1371
|
0 |
0 |
if ($self->_isOpen) |
|
1372
|
0 |
0 |
if defined $self->{'_appendable'} |