| line |
true |
false |
branch |
|
240
|
0 |
55 |
unless defined $code |
|
246
|
70 |
425 |
if exists $code->{$_} |
|
337
|
0 |
60 |
if (grep(($_ > 1), @check)) |
|
346
|
56 |
4 |
if (grep(($_ eq $type), ('scalar', 'array', 'hash'))) |
|
350
|
55 |
10 |
if exists {"DEFAULT" => {"asgnchk" => "","decl" => "","defchk" => "","postac" => "","predefchk" => "","read" => ["__VALUE__",""],"refer" => "\$_[0]->{\$name}","reset" => "","store" => ""},"default" => {"defchk" => "if ( ! exists %%STORAGE%% ) {\n %%ASGNCHK__SIGIL__(\$default)%%\n %%STORAGE%% = \$default\n}\n","encode" => 4},"default_ctor" => {"defchk" => "if ( ! exists %%STORAGE%% ) {\n my \$default = \$dctor->(\$_[0]);\n %%ASGNCHK__SIGIL__(\$default)%%\n %%STORAGE%% = \$default\n}\n","encode" => 8},"read_cb" => {"encode" => 64,"read" => ["{ # Encapsulate scope to avoid redefined \$v issues\n my \$v = __VALUE__;\n \$v = \$_->(\$_[0], \$v)\n for \@read_callbacks;\n \$v;\n}\n","{ # Encapsulate scope to avoid redefined \$v issues\n my \$v = __VALUE__;\n \$v = \$_->(\$_[0], \$v)\n for \@read_callbacks;\n \$v;\n}\n"]},"static" => {"decl" => "my \@store;","encode" => 1,"refer" => "\$store[0]"},"store_cb" => {"encode" => 128,"store" => "my __NAME__ = __VALUE__;\nif ( exists %%STORAGE%% ) {\n my \$old = %%STORAGE%%;\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, \$old) %%V2ONLY%%\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, \$old, __ALL__) %%V1COMPAT%%\n for \@store_callbacks;\n} else {\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name) %%V2ONLY%%\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, undef, __ALL__) %%V1COMPAT%%\n for \@store_callbacks;\n}\n"},"tie_class" => {"encode" => 16,"postac" => "tie %%STORAGE(__SIGIL__)%%, \$tie_class, \@tie_args\n unless exists %%STORAGE%%;\n","predefchk" => "tie %%STORAGE(__SIGIL__)%%, \$tie_class, \@tie_args\n unless exists %%STORAGE%%;\n","reset" => "untie %%STORAGE(__SIGIL__)%%;\n"},"type" => {"asgnchk" => "for (__FOO__) {\n croak(sprintf(\"Incorrect type for attribute __ATTR__: %s\\n\" .\n \" : should be '%s' (or subclass thereof)\\n\",\n (defined(\$_) ?\n (ref(\$_) ? ref(\$_) : \"plain value(-->\$_<--)\" ) :\n '*undef*'\n ), \$type))\n unless ! defined \$_ or UNIVERSAL::isa(\$_, \$type);\n}\n","encode" => 2},"typex" => {"asgnchk" => "for (__FOO__) {\n# \$_ += 0;\n# croak(sprintf(\"Incorrect type for attribute __ATTR__: %s\\n\" .\n# \" : should be '%s' (or subclass thereof)\\n\",\n# (defined(\$_) ?\n# (ref(\$_) ? ref(\$_) : \"plain value(-->\$_<--)\" ) :\n# '*undef*'\n# ), \$typex))\n# unless ! defined \$_ or UNIVERSAL::isa(\$_, \$typex);\n}\n","encode" => 256},"v1_compat" => {"encode" => 32}}->{$_} |
|
371
|
0 |
0 |
unless (defined $code) |
|
372
|
0 |
0 |
if (exists {DEFAULT => {asgnchk => '', decl => '', defchk => '', postac => '', predefchk => '', read => ['__VALUE__', ''], refer => '$_[0]->{$name}', reset => '', store => ''}, default => {defchk => "if ( ! exists %%STORAGE%% ) {\n %%ASGNCHK__SIGIL__(\$default)%%\n %%STORAGE%% = \$default\n}\n", encode => 4}, default_ctor => {defchk => "if ( ! exists %%STORAGE%% ) {\n my \$default = \$dctor->(\$_[0]);\n %%ASGNCHK__SIGIL__(\$default)%%\n %%STORAGE%% = \$default\n}\n", encode => 8}, read_cb => {encode => 64, read => ["{ # Encapsulate scope to avoid redefined \$v issues\n my \$v = __VALUE__;\n \$v = \$_->(\$_[0], \$v)\n for \@read_callbacks;\n \$v;\n}\n", "{ # Encapsulate scope to avoid redefined \$v issues\n my \$v = __VALUE__;\n \$v = \$_->(\$_[0], \$v)\n for \@read_callbacks;\n \$v;\n}\n"]}, static => {decl => 'my @store;', encode => 1, refer => '$store[0]'}, store_cb => {encode => 128, store => "my __NAME__ = __VALUE__;\nif ( exists %%STORAGE%% ) {\n my \$old = %%STORAGE%%;\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, \$old) %%V2ONLY%%\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, \$old, __ALL__) %%V1COMPAT%%\n for \@store_callbacks;\n} else {\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name) %%V2ONLY%%\n __NAMEREF__ = \$_->(\$_[0], __NAMEREF__, \$name, undef, __ALL__) %%V1COMPAT%%\n for \@store_callbacks;\n}\n"}, tie_class => {encode => 16, postac => "tie %%STORAGE(__SIGIL__)%%, \$tie_class, \@tie_args\n unless exists %%STORAGE%%;\n", predefchk => "tie %%STORAGE(__SIGIL__)%%, \$tie_class, \@tie_args\n unless exists %%STORAGE%%;\n", reset => "untie %%STORAGE(__SIGIL__)%%;\n"}, type => {asgnchk => qq[for (__FOO__) {\n croak(sprintf("Incorrect type for attribute __ATTR__: %s\\n" .\n " : should be '%s' (or subclass thereof)\\n",\n (defined(\$_) ?\n (ref(\$_) ? ref(\$_) : "plain value(-->\$_<--)" ) :\n '*undef*'\n ), \$type))\n unless ! defined \$_ or UNIVERSAL::isa(\$_, \$type);\n}\n], encode => 2}, typex => {asgnchk => qq[for (__FOO__) {\n# \$_ += 0;\n# croak(sprintf("Incorrect type for attribute __ATTR__: %s\\n" .\n# " : should be '%s' (or subclass thereof)\\n",\n# (defined(\$_) ?\n# (ref(\$_) ? ref(\$_) : "plain value(-->\$_<--)" ) :\n# '*undef*'\n# ), \$typex))\n# unless ! defined \$_ or UNIVERSAL::isa(\$_, \$typex);\n}\n], encode => 256}, v1_compat => {encode => 32}}->{'DEFAULT'}{$codepoint}) { } |