view release on metacpan or  search on metacpan

t/samples/perlmonks.html  view on Meta::CPAN

{
    my ( $ref, $selector, $value ) = @_;
    
    return if ( not defined $ref or not defined $selector or not scala<span class="line-breaker">
<font color="red">+</font></span>r @$selector ); # return if no ref or no selectees.
    
    my @selector_b = qw##;
   
    for my $selectee ( @$selector )
    {
        if ( $selectee =~ qr#^(&#91;&gt;&lt;&#93;)$# ) # if incognito selectee. todo<span class="line-breaker">
<font color="red">+</font></span>: unless escaped.
        {
            my $selector_b = join q#.#, @selector_b;
            
            if ( $1 eq q#&gt;# ) # incognito selectee is of increment typ<span class="line-breaker">
<font color="red">+</font></span>e.
            {
                if ( defined $state-&gt;{$selector_b} ) # we have seen th<span class="line-breaker">
<font color="red">+</font></span>is state before.
                {
                    push @selector_b, $state-&gt;{$selector_b} += 1; # pu<span class="line-breaker">
<font color="red">+</font></span>sh current index + 1.
                }
                else
                {
                    push @selector_b, $state-&gt;{$selector_b} = 0; # pus<span class="line-breaker">
<font color="red">+</font></span>h 0 (first) index.
                }
            }
            elsif ( $1 eq q#&lt;# ) # incognito selectee is of maintain t<span class="line-breaker">
<font color="red">+</font></span>ype.
            {
                push @selector_b, $state-&gt;{$selector_b} //= 0; # push <span class="line-breaker">
<font color="red">+</font></span>current index or 0 (first) index.
            }
        }
        else # else non inconito selectee.
        {
            push @selector_b, $selectee; # push selectee.
        }