5 |
use neb::Tree::Perl; |
use neb::Tree::Perl; |
6 |
our @ISA = ('neb::Tree::Tag'); |
our @ISA = ('neb::Tree::Tag'); |
7 |
|
|
8 |
sub code {'print "***Si ves este mensaje en la salida de neb, es porque algo malo sucedió en el parseo.\n";'} |
#sub code {'print "***Si ves este mensaje en la salida de neb, es porque algo malo sucedió en el parseo.\n";'} |
9 |
|
sub code {''} |
10 |
|
sub canonical {''} |
11 |
|
|
12 |
sub decls |
sub decls |
13 |
{ |
{ |
14 |
my $self = shift; |
my $self = shift; |
15 |
|
|
16 |
my $parents = ''; |
my $parents = $self->url; |
|
my $p = $self->parent; |
|
|
while ($p) |
|
|
{ |
|
|
my $name = eval '$p->name'; |
|
|
$parents = "${name}::$parents" if $name; |
|
|
$p = $p->parent; |
|
|
} |
|
|
$parents = substr($parents, 0, -2); |
|
17 |
|
|
18 |
# extrae y limpia líneas significativas (i.e. no vacías) |
# extrae y limpia líneas significativas (i.e. no vacías) |
19 |
my @lines = grep ($_, |
my @lines = grep ($_, |