25 |
my $self = shift; |
my $self = shift; |
26 |
$self->SUPER::init(@_); |
$self->SUPER::init(@_); |
27 |
|
|
28 |
|
die "neb:Sub necesita un atributo neb:src para saber de donde sacar el Sub!\n" |
29 |
|
unless ($self->attribute('neb:src')); |
30 |
|
|
31 |
my $parents = $self->url; |
my $parents = $self->url; |
32 |
|
|
33 |
my $text = "<neb><!-- $parents --><neb:Block>{ " |
my $text = "<neb><!-- $parents --><neb:Block>{ " |
42 |
local $INPUT_RECORD_SEPARATOR = undef; |
local $INPUT_RECORD_SEPARATOR = undef; |
43 |
my $F = _find_file($self->delete('neb:src')); |
my $F = _find_file($self->delete('neb:src')); |
44 |
|
|
45 |
|
|
46 |
$parents .= "::$F"; |
$parents .= "::$F"; |
47 |
|
|
48 |
open (F, $F) or confess "No puedo abrir el archivo $F: $OS_ERROR"; |
open (F, $F) or confess "No puedo abrir el archivo $F: $OS_ERROR"; |