| line |
true |
false |
branch |
|
186
|
2 |
0 |
if grep {$_ > 255;} map(ord($_), split(//, $str, 0)) |
|
194
|
2 |
10 |
if defined $$args{$_} and lc $$args{$_} eq 'no' |
|
202
|
2 |
2 |
unless ($$self{'key'} =~ /^\d+$/) |
|
203
|
0 |
2 |
if length $$self{'key'} > 4 |
|
209
|
2 |
0 |
$$args{'create'} ? : |
|
211
|
0 |
2 |
$$args{'exclusive'} ? : |
|
217
|
2 |
0 |
$$args{'destroy'} ? : |
|
220
|
2 |
0 |
unless $$args{'flags'} |
|
226
|
0 |
2 |
unless $$self{'share'} = new_share($$self{'key'}, $$self{'size'}, $$self{'flags'}) |
|
237
|
0 |
4 |
unless @$params |
|
239
|
0 |
4 |
unless ($$params[0] =~ /^-/) |
|
240
|
0 |
0 |
unless @$names == @$params |
|
250
|
0 |
14 |
unless exists $names{$param} |
|
285
|
0 |
2006 |
if (write_share($$self{'share'}, $_[0], length $_[0]) < 0) |
|
305
|
0 |
2005 |
unless defined $str |
|
362
|
0 |
2000 |
if $response == -1 |
|
363
|
0 |
2000 |
if $response == 1 |
|
380
|
0 |
2000 |
if sharelite_unlock($$self{'share'}) < 0 |
|
466
|
0 |
2 |
if $count < 0 |
|
478
|
1 |
0 |
if @_ |
|
485
|
2 |
2 |
if $$self{'share'} |
|
496
|
0 |
4 |
@_ ? : |
|
497
|
0 |
4 |
if ($! != 0) |
|
498
|
0 |
0 |
if ($! =~ /Invalid/) { } |