Branch Coverage

blib/lib/List/Gen.pm
Criterion Covered Total %
branch 203 1154 17.5


line true false branch
66 6 0 if (@_ == 2 and !$_[1] || $_[1] eq '*')
69 6 6 if @_ == 1
70 12 18 /^&?\\$/ ? :
71 0 18 /^<.*>$/ ? :
75 2 1 @_ > 1 && $_[1] == 0 ? :
201 560 0 unless /:/
209 220 0 @_ > 1 ? :
213 60 0 @_ > 1 ? :
225 0 197 if %{$pkg . '::';}
229 187 0 unless $destroy
230 4 183 unless ($class || (next))->can('DESTROY')
233 197 0 if $class
235 804 52 if not /^-/
236 0 804 if DEBUG and B::svref_2object($$obj{$name})->GV->NAME =~ /__ANON__/
240 0 197 if ($$obj{-'overload'})
249 16 0 unless (&Scalar::Util::looks_like_number($_[0]) or do { BEGIN {${^WARNING_BITS} = "TUUQUUUUUUUUUUU\025"} $_[0] >= 9**9**9 })
250 0 16 if ref $_[0] and blessed($_[0])
341 0 285 unless $n >= 1
343 0 285 if $n == 1
348 0 570 if ($want) { }
400 0 0 unless $_[0] >= 1
401 0 0 if (wantarray)
402 0 0 if (@_ == 2 and ref $_[1] and isagen $_[1]) { }
415 0 0 if (@$source == 1 and ref $$source[0] and isagen $$source[0])
421 0 10 if $size > int $size
429 0 0 if $source->is_mutable
432 0 0 $i < $src_size ? :
438 0 0 $i < @$source ? :
443 0 10 &isagen($source) ? :
460 0 0 wantarray ? :
490 0 0 unless ($_[0]->$is_array_or_gen)
495 0 0 if $code
496 0 0 unless wantarray
497 0 0 if &$any_mutable
498 0 0 if ($code) { }
531 0 0 unless ($_[0]->$is_array_or_gen)
536 0 0 if $code
537 0 0 unless wantarray
538 0 0 if &$any_mutable
539 0 0 if ($code) { }
542 0 0 $i < @$_ ? :
547 0 0 $i < @$_ ? :
569 0 0 unless (wantarray)
573 0 0 if (&$any_mutable)
1255 0 7 $size > 2147483647 ? :
1263 0 7 $self->mutable ? :
1270 0 172 if $seen{$src}++
1271 0 172 if $src->isa('List::Gen::Mutable')
1272 42 130 if (my $source = $src->source)
1273 2 40 ref $source eq 'ARRAY' ? :
1280 0 0 unless my $src = $self->source
1281 0 0 if (ref $src eq 'ARRAY') { }
1296 0 176 unless &Scalar::Util::reftype($_[0]) eq 'HASH' and $_[0]{$_} or $_[0]->can($_)
1423 0 5 $flip ? :
1429 0 0 &List::Gen::isagen($_[0][0]) ? :
1435 5 0 unless ref $code eq 'CODE'
1437 5 5 if &List::Gen::isagen($_)
1439 1 4 if (ref $src eq 'ARRAY') { }
1445 0 5 if ($left->is_mutable or $right->is_mutable) { }
1453 4 0 $rh eq '>>' ? :
0 4 $lh eq '<<' ? :
1 4 $lh eq '<<' && $rh eq '>>' ? :
1454 0 0 if $lsize != $rsize
1458 0 5 $lh eq '<<' && $lsize < $size ? :
5 0 $rh eq '>>' && $rsize < $size ? :
1467 0 0 $_ % 2 ? :
1469 0 0 if (ref $got)
1470 0 0 if (ref $got eq 'ARRAY' or &List::Gen::isagen($got))
1484 0 0 if (ref $_ eq 'ARRAY' or &List::Gen::isagen($_))
1490 0 5 $code == $comma ? :
1501 0 8 if $flip
1503 16 0 if isagen my $x = $_
1504 0 0 $method eq 'zip' ? :
0 0 ref $_ && reftype $_ eq 'ARRAY' ? :
1521 0 0 unless ($ys->$isagen)
1523 0 0 $xWith eq 'zip' ? :
1526 0 0 if $$self{'flip'}
1530 0 0 unless $_[0]->can($method)
1556 0 11 if (ref \$ys eq 'GLOB')
1559 7 4 if $ops{$ys}
1560 8 3 if (not ref $ys or ref $ys eq 'CODE')
1568 0 3 if (ref $ys eq $package)
1571 0 0 if $flip
1572 0 0 $code == $comma ? :
1577 1 2 if (ref $ys eq 'ARRAY')
1583 0 6 if ($s->type =~ /List::Gen::(Zip)/)
1585 0 0 if ($type eq $method)
1587 0 0 $n eq 'xs' ? :
1589 0 0 $other->type =~ /List::Gen::$type/i ? :
1591 0 0 $n eq 'ys' ? :
1599 0 3 if $flip
1605 0 0 if $flip
1621 0 5 if (my $code = $unary{$y})
1624 0 5 if $flip
1635 0 129 if $List::Gen::STRICT
1664 2 50 if ($mutable)
1669 0 36 if (@_ == 0) { }
36 0 elsif (@_ == 1) { }
1670 0 0 $$index < $size ? :
0 0 $index < $size ? :
0 0 ref $index ? :
1675 36 0 if (looks_like_number($_[0])) { }
0 0 elsif (ref $_[0]) { }
0 0 elsif (canglob $_[0]) { }
0 0 elsif ($dwim_code_strings) { }
1677 0 0 if (isagen $_[0]) { }
0 0 elsif ($code_ok{ref $_[0]}) { }
0 0 elsif (ref $_[0] eq 'REF' and $code_ok{ref ${$_[0];}} or $dwim_code_strings and ref $_[0] eq 'SCALAR') { }
1697 0 2 unless eval "\n package @{[ref $_[0]];};\n use overload fallback => 1, '&{}' => sub {\$overload},\n '<>' => \\&next;\n local *DESTROY;\n bless []; 1\n "
1709 0 0 if @_ == 1 and isagen($_[0]) || canglob($_[0])
1711 0 3 if ($mutable) { }
1714 0 0 unless $i < $size
1716 0 0 unless $i < $size
1719 0 0 wantarray ? :
1723 3 0 wantarray ? :
1729 0 0 $$index < $size ? :
1731 0 0 $index < $size ? :
1732 0 52 ref $index ? :
0 52 ref $index ? :
0 52 ref $index ? :
1736 0 0 if tied(@{$_[0];})->can('index')
1748 0 0 $size < 9**9**9 ? :
0 20 unless $mutable or $size < 2147483648
1754 0 20 if (my $cap = $src->can('capture')) { }
0 20 elsif (my $range = $src->can('range')) { }
1763 0 20 if ($mutable) { }
1768 0 0 unless $i++ < $size
1782 0 0 if (@_ == 2)
1785 0 0 unless ((ref $code || '') eq 'CODE')
1786 0 0 if (ref \$code eq 'GLOB') { }
1791 0 0 unless $code =~ /[~!-\\]/
1796 0 0 if (@_ == 3)
1797 0 0 if (ref \$_[1] eq 'GLOB' or $_[1] =~ /^(?:<>?|>=|<=|[^<>]+)$/)
1802 0 0 if ($_[1] =~ /^\s*(<>?)?\s*(\S+?)\s*(<>?)?\s*$/)
1804 0 0 length $1 == 1 ? :
0 0 $1 ? :
0 0 length $3 == 1 ? :
0 0 $3 ? :
1814 0 0 if @_ == 5
1826 0 0 if ref($next) =~ /^List::Gen::While/
1827 0 0 if (my $source = $next->source)
1828 0 0 ref $source eq 'ARRAY' ? :
1849 0 0 @ret > 1 ? :
0 0 wantarray ? :
1889 0 0 $from->mutable ? :
1900 0 0 wantarray ? :
1901 0 0 wantarray ? :
1909 0 0 if @_ == 2
1913 0 0 wantarray ? :
0 0 @_ == 0 ? :
1918 0 0 wantarray ? :
1932 0 0 wantarray ? :
1943 0 0 ref $_ eq 'ARRAY' ? :
0 0 &List::Gen::isagen($_) ? :
0 0 /^-?\d+(?:\.\d+)?$/ ? :
0 0 ref $_ ? :
1944 0 0 $src->size <= $_[0] ? :
0 0 @_ && $_[0] < 9**9**9 ? :
0 0 @_ == 2 && $_[0] < $src->size ? :
1962 23 0 defined $" ? :
1966 0 0 @_ > 1 ? :
0 0 @_ > 2 ? :
1972 0 0 ref $_ eq 'ARRAY' ? :
0 0 &List::Gen::isagen($_) ? :
0 204 ref $_ ? :
1973 0 3 @_ == 2 ? :
0 3 $src->size <= $_[0] ? :
3 20 @_ && $_[0] < 9**9**9 ? :
1993 0 0 if (@_ and &Scalar::Util::openhandle($_[0])) { }
2007 0 0 $_ >= 9**9**9 ? :
2009 0 0 $stream ? :
0 0 $stream ? :
0 0 !$num ? :
2013 0 0 $#$_ > 0 ? :
2018 0 0 $perl ? :
2032 0 0 if $msg =~ /^\w+$/
2034 0 0 unless defined $\
2035 0 0 $fh ? :
2043 0 0 if ($n == 1 and not $self->is_mutable) { }
2045 0 0 $size >= 9**9**9 ? :
2048 0 0 wantarray ? :
2054 0 0 $n > 1 ? :
2062 0 0 if $self->is_mutable
2063 0 0 if exists $map{$_}
2065 0 0 $size >= 9**9**9 ? :
2067 0 0 unless $i < $size
2077 0 0 if $src->is_mutable
2079 0 0 if exists $map{$_}
2081 0 0 $size >= 9**9**9 ? :
2084 0 0 if $seen{$i}
2086 0 0 unless $seen{$i}++
2098 0 0 if @_ == 1
2106 0 0 if ($self->is_mutable) { }
2110 0 0 if $i >= $size
2111 0 0 $first_idx ? :
0 0 if &$code
2117 0 0 $first_idx ? :
0 0 if &$code
2124 0 0 @_ == 1 ? :
2154 0 0 if $i != $pos
2163 0 0 $src->mutable ? :
2175 0 0 defined $n ? :
2179 0 0 if ($_[1]->$is_array_or_gen) { }
2188 0 0 if (grep {$_->is_mutable;} $xs, $ys)
2198 1 4 if ($_[1]->$is_array_or_gen) { }
2207 0 5 if (@_)
2214 0 10 if ($_->is_mutable)
2221 0 5 if ($ysize >= 9**9**9 and not $ys_mutable)
2226 0 5 if ($xsize >= 9**9**9 and not $xs_mutable)
2232 1 4 if ($code == $comma) { }
2241 0 0 if $xs_mutable
2242 0 0 if $ys_mutable
2244 0 0 if ($got and int $_ / 2 == $i)
2257 9 9 $_ % 2 ? :
2260 0 1 $mutable ? :
2269 0 0 if $xs_mutable
2270 0 0 if $ys_mutable
2282 0 4 $mutable ? :
2285 0 5 if $mutable
2297 0 0 $size >= 9**9**9 ? :
2298 0 0 $_ < $size ? :
2301 0 0 $src->is_mutable ? :
2305 0 0 $size >= 9**9**9 ? :
2311 0 7 if $code == $comma
2312 0 7 if $code == $rcomma
2318 7 0 if @$self
2319 0 7 unless @$self
2322 0 7 if ($self->is_mutable) { }
2328 0 0 if $i >= $size
2329 0 0 $args ? :
2332 0 7 unless $self->size < 9**9**9
2335 45 0 $args ? :
2340 0 0 unless $_[0]->reduce(sub { ; } )
2341 0 0 unless $_[0]->reduce(sub { ; } )
2342 0 0 $a > $b ? :
2343 0 0 $a > $b ? :
2347 0 0 if $self->is_mutable
2349 0 0 if ($n < 0)
2352 0 0 if $size >= 9**9**9
2353 0 0 if ($n >= $size)
2379 0 0 unless my(@x) = $self->next
2380 0 0 if ($n)
2382 0 0 if @ret < $n
2385 0 0 wantarray ? :
2387 0 0 wantarray ? :
2392 0 0 if (@_) { }
2396 0 0 if $self->is_mutable
2401 0 0 unless defined $done
2403 0 0 if $i >= $size
2405 0 0 if $i >= $size
2406 0 0 if $i == $size - 1
2414 0 0 @ret ? :
0 0 unless @i = $self->next
2417 0 0 wantarray ? :
2427 2 4 if ($_[1]->$is_array_or_gen)
2440 0 0 if ($code =~ /(?=.* \$a \b) (?=.* \$b \b)/sx)
2443 0 0 unless ref $code eq 'CODE'
2450 0 0 $_[0] =~ /^\d+$/ ? :
2470 0 0 unless @_ == 2
2484 0 0 if $_[0] =~ /^Exiting subroutine via last/i
2485 0 0 $warn ? :
2491 0 0 if ($src->mutable) { }
2495 0 0 unless $i++ < $size
2506 0 0 wantarray ? :
0 0 ref($@) =~ /^List::Gen::(Last|Done)$/ ? :
0 0 ref $@ ? :
0 0 unless eval { do { my $size = &$fsize(); if ($src->mutable) { $src->tail_size($size); while ($i < $size) { *_ = \&$fetch(undef, $i); last unless $i++ < $size; &$code; } ; } else { while ($i < $size) { *_ = \&$fetch(undef, $i++); &$code; } ; } ; 1 } }
2562 45 0 if (my $code = $self->can($method) || $search && do { my(@src) = $self->sources; while (@src) { last if $src[0]->can($method); CORE::shift @src; } ; @src ? ($self = $src[0])->can($method) : () }) { }
2571 0 45 if ($internal =~ /^(PUSH|UNSHIFT|from|load)$/) { }
2593 0 0 if ref $_ and &List::Gen::isagen($_)
2598 0 0 if (my(@next) = $stack[-1]->next) { }
2600 0 0 if ref $_ and &List::Gen::isagen($_)
2607 0 0 @stack ? :
2612 0 51 if delete $threaded{$_[0]}
2615 0 0 unless $] < 5.013
2618 0 0 if $$self{'thread_queue'}
2625 0 0 if ($cached or $$self{'thread_cached'})
2626 0 0 if ($cached) { }
2628 0 0 unless (&threads::shared::is_shared($cached))
2630 0 0 $type eq 'HASH' ? :
2632 0 0 $type eq 'HASH' ? :
2639 0 0 exists $cache{$_[1]} ? :
2648 0 0 if $job eq 'stop'
2659 0 0 if ($$self{'thread_queue'})
2673 0 0 unless $$self{'thread_queue'}
2685 0 0 wantarray ? :
2695 0 0 if $$self{'thread_workers'}
2697 0 0 if @_
2704 0 0 if $size < 1
2711 105 12 @_ ? :
2717 0 0 $@ =~ /^(.+) at .+?List-Gen.*$/s ? :
0 129 unless eval { do { tie @ret, 'List::Gen::' . $class, @_ } }
2721 0 129 if (DEBUG)
2730 0 0 $$src{$_} ? :
0 0 !$exempt{'mutable'}{$type} && $src->mutable ? :
2734 0 0 if (@needs)
2738 0 129 if $LIST
2741 0 10 if (DEBUG)
2822 0 40 if @_ > 1 and $_[1] eq '*' || \$_[1] == \**
2827 6 118 if defined $_ and /^[a-z]+$/i and not looks_like_number $_
2831 23 34 @_ == 1 ? :
2836 31 26 $high < 9**9**9 ? :
2837 31 0 $step > 0 ? :
2839 31 0 $size > 0 ? :
2842 0 57 unless $low < 9**9**9
2845 125 0 $_[1] < $size ? :
2857 0 24 @_ ? :
2858 0 24 if $num < 0
2859 24 0 if $num < 702
2871 0 9 if $str =~ /^-(.+)/
2880 0 6 @_ == 1 ? :
2883 9 3 if /^[a-z]+$/i and not looks_like_number $_
2885 0 6 if ($step =~ /^[a-z]+$/i)
2888 0 6 $uc ? :
2946 0 0 @_ ? :
2949 2 44 unless @_
2951 0 0 $_[0] =~ /\.{2,3}/ ? :
1 23 unless $#_ and &range or ref $_[0] and do { $_[0] = &${$_[0];}() if ref $_[0] eq 'List::Gen::Thunk'; ref $_[0] eq 'ARRAY' and &makegen unless isagen $_[0] } or $_[0] and $_[0] =~ /$canglob/ and isagen &glob($_[0] =~ /\.{2,3}/ ? $_[0] : "$_[0]...") or looks_like_number($_[0]) and range int $_[0]
2952 0 10 if ref $_[0] eq 'List::Gen::Thunk'
2953 0 10 unless isagen $_[0]
2967 36 0 if ($source->can('range')) { }
0 0 elsif ($source->can('capture')) { }
2970 278 0 $_[1] < $size ? :
3025 0 0 $_[1] < $_[0]->fsize ? :
3085 0 0 @_ ? :
3101 0 0 @_ == 2 ? :
0 0 @_ == 1 ? :
0 0 @_ == 0 ? :
3128 0 0 unless tie my @array, 'Tie::File', $file, %args
3187 0 7 if $STREAM
3189 0 7 if (isagen $size and $size->is_mutable)
3197 7 0 if (isagen $size)
3203 0 58 if (my $i = $_[1]) >= $size
3205 58 0 if ($i > $#list)
3208 58 0 $source ? :
0 58 $from ? :
3219 0 0 if @_ == 2 and ref $_[1] eq 'List::Gen::From_Check'
3221 0 0 if @list or $from++
3223 0 0 @_ > 1 ? :
3234 0 0 @{$_[0];} ? :
3235 0 0 @{$_[0];} ? :
3249 0 0 if (isagen $size and $size->is_mutable)
3259 0 0 if (isagen $size)
3265 0 0 if (my $i = $_[1]) >= $size
3267 0 0 if $i < $pos
3269 0 0 if $i == 0 and $from
3272 0 0 $source ? :
0 0 $from ? :
3278 0 0 $pos < $size ? :
3283 0 0 if $pos or $from++
3285 0 0 @_ > 1 ? :
3309 0 2 if $STREAM
3316 0 2 if (isagen $size)
3321 0 0 if $mutable
3327 0 22 if $iter++ >= $size
3330 0 22 $source ? :
0 22 $from ? :
3333 0 22 ref $_ eq 'List::Gen::Thunk' ? :
3334 0 22 unless eval { do { push @list, map({ref $_ eq 'List::Gen::Thunk' ? \&$$_() : \$_;} &$code()); 1 } }
3335 0 0 if (ref $@) { }
3336 0 0 ref $_ eq 'List::Gen::Thunk' ? :
3340 0 0 $i < $#list ? :
3350 0 58 if ($size < @list) { }
0 58 elsif ($mutable) { }
3364 0 0 if $size == @list
3367 0 0 if $size < 9**9**9
3373 0 0 if @list or $from++
3375 0 0 @_ > 1 ? :
3396 0 0 unless $self->fsize > 0
3402 0 0 unless $self->fsize > 0
3410 0 0 @_ == 2 ? :
0 0 @_ == 1 ? :
0 0 @_ == 0 ? :
3439 0 0 if (isagen $size)
3447 0 0 if $i < $pos
3449 0 0 if $pos >= $size
3451 0 0 if ($i == $pos and @last)
3455 0 0 if (@last)
3460 0 0 $source ? :
0 0 $from ? :
3463 0 0 ref $_ eq 'List::Gen::Thunk' ? :
3464 0 0 unless eval { do { push @last, map({ref $_ eq 'List::Gen::Thunk' ? \&$$_() : \$_;} &$code()); 1 } }
3465 0 0 if (ref $@) { }
3466 0 0 ref $_ eq 'List::Gen::Thunk' ? :
3478 0 0 if $from
3481 0 0 if ($mutable)
3495 0 0 if @last or $from
3497 0 0 @_ > 1 ? :
3569 0 0 wantarray ? :
3571 0 0 unless eval { do { &$code(); 1 } }
3827 40 0 @_ ? :
3831 8 32 if (s/^ \[ ( (?: \\ | \.\.? | , ) (?! \] ) )? (?: (?: ( [Rr]{0,1} ) \s* ( $ops ) ) | ( (?=[^Rr0-9_])\w | [a-zA-Z_]\w+ ) ) ( (?: \.\.? | , ) )? \] //x)
3842 8 0 if ($op) { }
3843 4 4 if $rev
3845 0 0 if (my $sub = $pkg->can($word)) { }
3848 0 0 $rev ? :
3854 4 4 $scan ? :
3856 32 8 if (my($gen, $pre, $low, $high, $step, $iterate, $filter, $while) = /^ (?: \s* ( .+? ) \s* (?: [|:] | \b for \b) ){0,1} \s* (?: ( $prefix ) ){0,1} \s* (?: ( $number ) \s* \.\. (?!\.) \s* ( $number | -?(?:\*|) ) \s* (?: (?: \b by \b | [+]= | \+ | (?=-) ) \s* ( (?: -= \s* )? $number ) )? \s* | (.*? \s* \.\.\. \s* (?:$number|\*)?) \s* ) (?: (?: \b if \b | (?=\b unless \b) | [?,] ) \s* ( .+? ) \s* )? ( \b (?: while | until ) \b \s* .+? )? \s* $/osx) { }
3881 0 32 if $filter
3882 0 32 if $while
3886 5 27 if ($iterate) { }
3890 11 16 if $high =~ /^\*?$/
3891 0 27 if ($high eq '-*')
3895 0 27 if $high eq '-*'
3897 0 27 if $step
3900 0 32 if ($pre)
3903 0 0 if @$pre
3906 96 0 unless $$_[1]
3911 0 32 $reduce ? :
3916 8 0 $reduce && !$_ ? :
4030 0 1 unless do { if (@_ == 0) { 'List::Gen'; } elsif (@_ == 1) { if (ref $_[0]) { if (ref $_[0] eq 'ARRAY') { &makegen; } elsif (ref $_[0] eq 'CODE') { &range(0, 9**9**9)->map($_[0]); } elsif (ref $_[0] eq 'SCALAR') { &range(0, 9**9**9)->map(${$_[0];}); } elsif (isagen $_[0]) { $_[0]->copy; } elsif (openhandle($_[0])) { &file; } ; } elsif ($_[0] =~ /.[.]{2,3}/) { &glob; } elsif ($_[0] =~ /\*/) { &glob($_[0] . '...'); } ; } }
4031 1 0 if (@_ == 0) { }
0 0 elsif (@_ == 1) { }
4033 0 0 if (ref $_[0]) { }
0 0 elsif ($_[0] =~ /.[.]{2,3}/) { }
0 0 elsif ($_[0] =~ /\*/) { }
4034 0 0 if (ref $_[0] eq 'ARRAY') { }
0 0 elsif (ref $_[0] eq 'CODE') { }
0 0 elsif (ref $_[0] eq 'SCALAR') { }
0 0 elsif (isagen $_[0]) { }
0 0 elsif (openhandle($_[0])) { }
4097 10 0 unless defined &DEBUG_PRIME
4122 0 0 if ($n < 10000000) { }
4129 0 0 unless $n & 1
4132 0 0 unless $n % $i
4198 9 0 if (my $ranger = $range->can('range'))
4200 9 0 if ($step == 1)
4211 0 9 unless $take > 0
4226 9 0 $drop == 0 ? :
0 9 $source->mutable ? :
4236 0 0 $range->mutable ? :
4267 0 0 &$code() ? :
4294 0 0 if (isagen $gen) { }
0 0 elsif (ref $gen eq 'CODE') { }
4303 0 0 exists $cache{$arg} ? :
4307 0 0 $list ? :
4317 0 0 exists $cache{$_[1]} ? :
4325 0 0 $list ? :
4340 0 0 unless isagen $_[0]
4342 0 0 if $gen->mutable
4397 0 0 unless isagen $gen
4398 0 0 if (@_) { }
4403 0 0 if (@first == 1 and ref $first[0] eq 'ARRAY')
4412 0 0 if @_
4416 0 0 unless (exists $cache{$_[1]})
4434 0 0 $source->mutable ? :
4448 0 0 if $scale < 1
4449 0 0 unless isagen $gen
4452 0 0 $scale == 1 ? :
4485 0 7 if $STREAM
4489 7 0 if ($binop->$cv_wants_2_args) { }
4490 51 7 defined $last ? :
4493 0 0 defined $last ? :
4525 0 0 unless isagen my $source = shift()
4534 0 0 exists $overlay{$_[1]} ? :
4574 0 0 unless isagen my $source = pop()
4583 0 0 @_ > 4 ? :
4586 0 0 @_ ? :
4662 0 0 if $STREAM
4669 0 0 if ($source->mutable)
4678 0 0 unless ($i < $size)
4683 0 0 if ($pos < $src_size) { }
4685 0 0 if ($pos < $src_size and &$check())
4694 0 0 $i <= $#list ? :
4697 0 0 $pos < $src_size ? :
4750 0 0 if $src->mutable
4759 0 0 unless $pos < $src_size
4761 0 0 if (&$code)
4763 0 0 if $pos > $src_size
4773 0 0 if (&$code)
4775 0 0 if $pos < 0
4792 0 0 if ($idx > $want) { }
4810 0 0 if ($size > $_)
4812 0 0 if $pos == $src_size
4816 0 0 defined $ret ? :
4822 0 0 if ($idx > $want) { }
0 0 elsif ($idx == $want) { }
0 0 elsif ($idx < $want) { }
4828 0 0 if ($size > $_)
4833 0 0 defined $ret ? :
4840 0 0 $LOOKAHEAD && (!$src->can('index') || $src->isa($class)) ? :
4893 0 0 unless isagen $source
4899 0 0 unless isagen $source
4918 0 0 if ($source->mutable)
4934 0 0 unless ($i < $size)
4937 0 0 if ($i < $src_size) { }
4938 0 0 $i == $next[0] ? :
4939 0 0 unless $i < $src_size and &$check()
4941 0 0 if ($lookahead and $i + 1 < $src_size)
4943 0 0 if ($i + 1 < $src_size and &$check()) { }
4996 0 0 unless isagen $_[0]
5004 0 0 if defined $size and $_[1] >= $size
5012 0 0 wantarray ? :
5013 0 0 ref $@ ? :
0 0 unless my $ret = eval { do { cap(&$fetch(undef, $_[1])) } }
5018 0 0 wantarray ? :
5020 0 0 defined $size ? :
5022 0 0 defined $size ? :
5026 0 0 $source->mutable ? :
5031 0 0 if (@next) { }
5049 0 0 if $ok
5067 0 0 @{$@;} ? :
0 0 ref $@ eq 'List::Gen::Done' ? :
0 0 ref $@ ? :
5082 0 0 wantarray ? :
0 0 shift @_ ? :
5083 0 0 wantarray ? :
0 0 !shift(@_) ? :
5181 0 0 ref $_ eq 'ARRAY' ? :
0 0 isagen() ? :
5188 0 0 $mutable ? :
5192 0 0 if $mutable
5198 0 0 if $i >= $size
5203 0 0 if ($depth + $cur_size > $i)
5204 0 0 if ($$_[2]) { }
5207 0 0 if $depth + $cur_size > $i
5223 0 0 if $i >= $size
5228 0 0 if ($$src[2] <= $i) { }
0 0 elsif ($$src[1] > $i) { }
5243 0 0 $mutable ? :
0 0 $mutable ? :
5264 0 4 unless isagen
5272 0 2 if (grep {$_;} @mutable) { }
5282 0 0 if $_[1] >= $size
5287 0 0 unless ($cached == $i)
5291 0 0 if ($mutable[$sid]) { }
5292 0 0 if ($i < $size[$sid]()) { }
5294 0 0 if ($i >= $size[$sid]())
5358 0 10 unless @_
5360 10 0 unless @_
5361 0 0 if (@_ == 1 and ref $_[0] and isagen $_[0]) { }
5363 0 0 if ($gen->is_mutable) { }
5375 0 0 if $gen->size <= $idx
5376 0 0 unless eval { do { $ret = \$gen->get($idx); 1 } }
5377 0 0 if $gen->size <= $idx
5410 0 0 unless isagen
5413 0 0 if (first sub { $_->mutable; } , @src) { }
5416 0 0 $i < $size[$src]() ? :
5417 0 0 if $i >= max(map(&$_(), @size))
5424 0 0 $i < $size[$src] ? :
5453 0 4 if ($mutable) { }
5458 0 0 unless (@size)
5461 0 0 if $_->mutable
5468 0 0 if $_ <= $i
5469 0 0 if $_ == $i + 1
5472 0 0 if $last
5473 0 0 wantarray ? :
5498 0 0 if ($mutable) { }
5501 0 0 unless (@size)
5504 0 0 if $_->mutable
5508 0 0 if first sub { $_ <= $i; } , @size
5511 0 0 if first sub { $_ <= $i; } , @size
5535 0 0 unless isagen
5538 0 0 if (first sub { $_->mutable; } , @src) { }
5541 0 0 $i < $size[$_]() ? :
5542 0 0 if $i >= max(map(&$_(), @size))
5549 0 0 $i < $size[$_] ? :
5573 0 0 @_ == 1 ? :
5574 0 0 unless @$src
5575 0 0 if (isagen $$src[0] and $$src[0]->is_mutable) { }
5582 0 0 $i < @$_ ? :
5584 0 0 $i < @$_ ? :
5615 0 0 $size[$_] ? :
5685 0 0 if (@_ == 1) { }
5691 0 0 if ($want) { }
5743 0 0 if (reftype $src eq 'ARRAY') { }
5747 0 0 $want ? :
0 0 &$code ? :
5754 0 0 if (&$code)
5755 0 0 $want ? :
5762 0 0 reftype $src eq 'HASH' ? :
0 0 wantarray ? :
5781 280 0 if @_
5783 0 0 $type eq 'SCALAR' ? :
0 0 $type eq 'HASH' ? :
0 0 $type eq 'ARRAY' ? :
0 280 $type ? :