| line |
true |
false |
branch |
|
28
|
0 |
1 |
if ref $$opts{'into'} |
|
43
|
1 |
0 |
if (eval {
do {
require Variable::Magic
}
}) { } |
|
53
|
0 |
0 |
unless (exists &PerlX::Window::_TieScalar::TIESCALAR) |
|
55
|
0 |
0 |
unless eval "\n\t\t\t\tpackage #\n\t\t\t\t\tPerlX::Window::_TieScalar;\n\t\t\t\tsub TIESCALAR { my \$tmp = undef; bless \\\$tmp, \$_[0] }\n\t\t\t\tsub FETCH { \$PerlX::Window::window }\n\t\t\t\tsub STORE { \$PerlX::Window::window = \$_[1] }\n\t\t\t\t1;\n\t\t\t" |
|
73
|
1 |
0 |
unless (exists &PerlX::Window::_TieArray::TIEARRAY) |
|
75
|
0 |
1 |
unless eval qq[\n\t\t\tpackage #\n\t\t\t\tPerlX::Window::_TieArray;\n\t\t\tuse Carp;\n\t\t\tsub TIEARRAY { my \$tmp = undef; bless \\\$tmp, \$_[0] }\n\t\t\tsub STORE { \$PerlX::Window::window[ \$_[1] ] = \$_[2] }\n\t\t\tsub FETCH { \$PerlX::Window::window[ \$_[1] ] }\n\t\t\tsub FETCHSIZE { scalar \@PerlX::Window::window }\n\t\t\tsub STORESIZE { croak("Array has a fixed size") }\n\t\t\tsub EXTEND { () }\n\t\t\tsub EXISTS { !!1 }\n\t\t\tsub DELETE { croak("Array element cannot be deleted") }\n\t\t\tsub CLEAR { croak("Array has a fixed size") }\n\t\t\tsub PUSH { croak("Array has a fixed size") }\n\t\t\tsub POP { croak("Array has a fixed size") }\n\t\t\tsub SHIFT { croak("Array has a fixed size") }\n\t\t\tsub UNSHIFT { croak("Array has a fixed size") }\n\t\t\tsub SPLICE { croak("Array has a fixed size") }\n\t\t\t1;\n\t\t] |
|
106
|
4 |
16 |
unless defined $pos{$ref} |
|
112
|
10 |
10 |
ref $ref eq 'ARRAY' ? : |
|
119
|
0 |
4 |
@_ ? : |
|
128
|
2 |
8 |
if ($pos + $n > scalar @$ref) |
|
144
|
2 |
8 |
if ($pos + $n > length $$ref) |