
Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: Trees and Language::AttributeGrammar

by nothingmuch (Priest)

on Mar 06, 2006 at 17:56 UTC ( [id://534724]=note: print w/replies, xml )

Need Help??

Help for this page

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} } ) ] };
}

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://534724]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others exploiting the Monastery: (2)

As of 2024-04-20 05:01 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found