Select Code to Download

Select or download this

Cons: $/.len            = { $/; $<head>.len + $<tail>.len }

Select or download this

use Data::Dumper;
$Data::Dumper::Deparse = 1;
warn Dumper($grammar->{engine}{cases}{Cons});

Select or download this

$_AG_ATTR->get($_AG_SELF)->get('len')->set(sub {
    $_AG_SELF;
    $_AG_N1->get('len', 'grammar line 4') + $_AG_N2->get('len', 'gramm
+ar line 4');
}

Select or download this

$_AG_ATTR->get($_AG_SELF)->get('len')->set(sub {
    $_AG_N1->get('len', 'grammar line 4') + $_AG_N2->get('len', 'gramm
+ar line 4');
}

Select or download this

'visit' => [
    sub {
...
... # snipped
        $_AG_ATTR->get($_AG_SELF)->get('len')->set(sub {
            $_AG_SELF;

Select or download this

sub children{
  return @{ $_[0]{_ll_cache} ||= [ list( @{ $_[0]->{_list} } ) ] };
}