Select Code to Download

pl@nereida:~/LEyapp/examples$ cat localwithlocal3.pl
#!/usr/local/bin/perl -w
...
my $obj = Tutu->new();

$obj->plim();

#!/usr/local/bin/perl -w
use strict;
...
# Let us provoke an exception
Tutu::protected();

$ attributeprotectedwithlocal.pl
Accessing 'protected' as a method: inside overwritten tutu!
main does not even know of 'Tutu::protected'
Accessing 'protected' as a method: inside overwritten tutu!
Undefined subroutine &Tutu::protected called at ./attributeprotectedwi
+thlocal.pl line 49.

pl@nereida:~/LEyapp/examples$ cat attributeprotected.pl
#!/usr/local/bin/perl -w
...
my $some = SomeClass->new;
$some->foo;           # OK
print ($some->can('_bar')?"Yes, main can see that SomeClass has a _bar
+ method\n":"no\n");

$ attributeprotected.pl
Yes, main can see that SomeClass has a _bar method

 94 my $attgram = new Language::AttributeGrammar <<'EOG';
 95
...
114   my $res = $attgram->apply($t, 'val');
115 }
116 # Restored  old version of Language::AttributeGrammar::Parser::_ge
+t_child