| line |
true |
false |
branch |
|
468
|
1 |
2 |
unless defined $class |
|
513
|
0 |
2 |
if (not defined $$self{'NAME'} or $$self{'NAME'} eq $EMPTY_STRING) |
|
537
|
0 |
2 |
if (@options % 2) |
|
542
|
0 |
2 |
if ('HASH' eq ref $valid_options) { } |
|
|
2 |
0 |
elsif ('ARRAY' eq ref $valid_options) { } |
|
559
|
0 |
0 |
unless (exists $$valid_options{$option_name}) |
|
565
|
0 |
2 |
if (defined $options{'FILE'} and not defined $options{'LINE'} or not defined $options{'FILE'} and defined $options{'LINE'}) |
|
623
|
0 |
0 |
unless defined $name |
|
693
|
0 |
0 |
unless exists $$options{'PERL_EVAL_CONTEXT'} |
|
725
|
0 |
0 |
if defined $_ |
|
728
|
0 |
0 |
if ($$options{'DISPLAY_SOURCE_IN_CONTEXT'}) |
|
734
|
0 |
0 |
if (defined $$options{'PERL_EVAL_CONTEXT'}) { } |
|
736
|
0 |
0 |
if ($$options{'PERL_EVAL_CONTEXT'}) { } |
|
738
|
0 |
0 |
$compartment ? : |
|
743
|
0 |
0 |
if $Eval::Context::EVAL_ERROR |
|
750
|
0 |
0 |
$compartment ? : |
|
755
|
0 |
0 |
if $Eval::Context::EVAL_ERROR |
|
763
|
0 |
0 |
defined $compartment ? : |
|
767
|
0 |
0 |
if $Eval::Context::EVAL_ERROR |
|
791
|
0 |
0 |
unless (defined $options{'FILE'}) |
|
819
|
0 |
0 |
if ($$options{'REMOVE_PACKAGE_AFTER_EVAL'}) { } |
|
825
|
0 |
0 |
if (defined $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}) |
|
850
|
0 |
0 |
exists $$options{'PACKAGE'} && defined $$options{'PACKAGE'} ? : |
|
854
|
0 |
0 |
$package eq $EMPTY_STRING ? : |
|
881
|
0 |
0 |
if (defined $$options{'INSTALL_VARIABLES'}) |
|
888
|
0 |
0 |
if ('CODE' ne ref $$options{'INSTALL_SUBS'}{$sub_name}) |
|
896
|
0 |
0 |
if (defined $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}) |
|
919
|
0 |
0 |
defined $$options{'PRE_CODE'} ? : |
|
921
|
0 |
0 |
if (exists $$options{'CODE_FROM_FILE'} and exists $$options{'CODE'}) |
|
926
|
0 |
0 |
if (exists $$options{'CODE_FROM_FILE'} and defined $$options{'CODE_FROM_FILE'}) |
|
933
|
0 |
0 |
unless (exists $$options{'CODE'} and defined $$options{'CODE'}) |
|
938
|
0 |
0 |
defined $$options{'POST_CODE'} ? : |
|
956
|
0 |
0 |
if (exists $$options{'REMOVE_PERSISTENT'}) |
|
958
|
0 |
0 |
if ('ARRAY' ne ref $$options{'REMOVE_PERSISTENT'}) |
|
971
|
0 |
0 |
if $name =~ /$regex/ |
|
994
|
0 |
0 |
if (defined $variables_setup) |
|
996
|
0 |
0 |
if (defined $$options{'PERL_EVAL_CONTEXT'}) { } |
|
998
|
0 |
0 |
if ($$options{'PERL_EVAL_CONTEXT'}) { } |
|
1044
|
0 |
0 |
if (exists $$options{'SAFE'}) { } |
|
1046
|
0 |
0 |
if ('HASH' eq ref $$options{'SAFE'}) { } |
|
1048
|
0 |
0 |
if (exists $$options{'SAFE'}{'PRE_CODE'}) |
|
1055
|
0 |
0 |
if ($Eval::Context::EVAL_ERROR) |
|
1068
|
0 |
0 |
if (exists $$options{'SAFE'}{'COMPARTMENT'}) { } |
|
1077
|
0 |
0 |
if exists $$options{'SAFE'}{'USE_STRICT'} |
|
1124
|
0 |
0 |
if ($SET_FROM_CALLER == $definition_type) { } |
|
|
0 |
0 |
elsif ($SET_FROM_CALLER_WITH_TYPE == $definition_type) { } |
|
1133
|
0 |
0 |
if ($$variable_definition[$TYPE_INDEX] == $PERSISTENT) { } |
|
|
0 |
0 |
elsif ($$variable_definition[$TYPE_INDEX] == $SHARED) { } |
|
1192
|
0 |
0 |
if (exists $$self{'SHARED_VARIABLES'}{$variable_name}) |
|
1197
|
0 |
0 |
if (not exists $$self{'PERSISTENT_VARIABLES'}{$variable_name}) { } |
|
1204
|
0 |
0 |
if (ref $variable_value eq 'USE_PERSISTENT') { } |
|
1229
|
0 |
0 |
if ('SCALAR' eq ref $variable_ref) { } |
|
|
0 |
0 |
elsif ('REF' eq ref $variable_ref) { } |
|
1231
|
0 |
0 |
if (defined ${$variable_ref;}) { } |
|
1285
|
0 |
0 |
if (exists $$self{'PERSISTENT_VARIABLES'}{$variable_name}) |
|
1290
|
0 |
0 |
if (defined $variable_value) |
|
1292
|
0 |
0 |
if ($EMPTY_STRING eq ref $variable_value) |
|
1303
|
0 |
0 |
if (exists $$options{'SAFE'}) { } |
|
1314
|
0 |
0 |
if (exists $$self{'SHARED_VARIABLES'}{$variable_name}) { } |
|
1316
|
0 |
0 |
if (exists $$options{'SAFE'}) { } |
|
1358
|
0 |
0 |
unless $valid_sigil{$sigil} |
|
1360
|
0 |
0 |
if (not defined $variable_value) { } |
|
1366
|
0 |
0 |
if ($EMPTY_STRING eq $variable_type) { } |
|
1375
|
0 |
0 |
if ($sigil eq '$') { } |
|
1458
|
0 |
0 |
if (exists $$self{'PERSISTENT_VARIABLES'}{$variable_name}) { } |
|
1473
|
0 |
0 |
if (defined wantarray) { } |
|
1475
|
0 |
0 |
if (wantarray) { } |
|
1510
|
0 |
0 |
if ('HASH' eq ref $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}) { } |
|
1512
|
0 |
0 |
defined $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{'CATEGORY'} ? : |
|
1523
|
0 |
0 |
if (scalar(@_) % 2) |
|
1554
|
0 |
0 |
wantarray ? : |
|
1561
|
0 |
0 |
if (exists $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{$handler_type}) { } |
|
1563
|
0 |
0 |
if (exists $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{$handler_type}{'VALIDATOR'} and 'CODE' eq ref $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{$handler_type}{'VALIDATOR'} and $EMPTY_STRING eq ref $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{$handler_type}{'NAME'} and $EMPTY_STRING ne $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{$handler_type}{'NAME'}) { } |
|
1600
|
0 |
0 |
if ($$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{'SAVE'}{'NAME'} eq $$options{'EVAL_SIDE_PERSISTENT_VARIABLES'}{'GET'}{'NAME'}) |