| line |
true |
false |
branch |
|
101
|
0 |
0 |
if @{"${class}::$f";} |
|
201
|
0 |
0 |
unless my $name = delete $opts{'name'} |
|
204
|
0 |
0 |
if not exists $opts{'params'} or ref $opts{'params'} ne 'ARRAY' |
|
208
|
0 |
0 |
if (my $fn = $opts{'pack'}) { } |
|
209
|
0 |
0 |
if exists $opts{'params_format'} or exists $opts{'params_default'} |
|
210
|
0 |
0 |
if (ref $fn) { } |
|
211
|
0 |
0 |
unless ref $fn eq 'CODE' |
|
214
|
0 |
0 |
unless $class->can($fn) |
|
218
|
0 |
0 |
if not exists $opts{'params_format'} or ref $opts{'params_format'} ne 'ARRAY' or @{$opts{'params_format'};} != @params |
|
219
|
0 |
0 |
if exists $opts{'params_format'} and ref $opts{'params_format'} ne 'ARRAY' || @{$opts{'params_format'};} > @params |
|
221
|
0 |
0 |
unless $opts{'params_default'} |
|
225
|
0 |
0 |
if not defined $$p[$i] and $i < @def |
|
226
|
0 |
0 |
unless defined $$p[$i] |
|
234
|
0 |
0 |
if (my $fn = $opts{'unpack'}) { } |
|
235
|
0 |
0 |
if (ref $fn) { } |
|
236
|
0 |
0 |
unless ref $fn eq 'CODE' |
|
239
|
0 |
0 |
unless $class->can($fn) |
|
242
|
0 |
0 |
if ($opts{'unpack_raw'}) |
|
248
|
0 |
0 |
unless exists $opts{'unpack_format'} |
|
250
|
0 |
0 |
if ref $f |
|
254
|
0 |
0 |
unless my $method = $opts{'method_name'} |
|
255
|
0 |
0 |
unless $method =~ /^[a-zA-Z]\w*$/ |
|
257
|
0 |
0 |
if defined &{$fn;} |
|
261
|
0 |
0 |
@_ && ref $_[-1] eq 'HASH' ? : |
|
264
|
0 |
0 |
unless my $res = $class->Call($name, &$pack([@params{@params}]), $param) |
|
265
|
0 |
0 |
unless $unpack |
|
273
|
0 |
0 |
unless $_[2] |
|
327
|
0 |
0 |
$class->can('_config') ? : |
|
334
|
0 |
0 |
if $class->can('FIELDS') |
|
335
|
0 |
0 |
if $class->can('LONG_FIELDS') |
|
337
|
0 |
0 |
unless defined $$config{'param'}{'raise'} |
|
349
|
0 |
0 |
unless ref $replicas eq 'ARRAY' |
|
411
|
0 |
0 |
if ($$param{'format'}) |
|
414
|
0 |
0 |
ref $$param{'format'} eq 'ARRAY' ? : |
|
415
|
0 |
0 |
if @format % 2 |
|
418
|
0 |
0 |
unless $fmt |
|
419
|
0 |
0 |
unless exists $$F{$field} |
|
421
|
0 |
0 |
exists $$fmt{'length'} ? : |
|
|
0 |
0 |
$fmt eq 'full' ? : |
|
434
|
0 |
0 |
if exists $$param{'is_replica'} and ref $$param{'is_replica'} ne 'SCALAR' |
|
436
|
0 |
0 |
if $is_rep |
|
438
|
0 |
0 |
$is_rep ? : |
|
442
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
449
|
0 |
0 |
unless $box->Error and $is_rep and @rep |
|
452
|
0 |
0 |
wantarray ? : |