7 |
use neb; |
use neb; |
8 |
our @ISA = ('neb::Tree::Tag'); |
our @ISA = ('neb::Tree::Tag'); |
9 |
|
|
10 |
|
sub _find_file |
11 |
|
{ |
12 |
|
my $F = shift; |
13 |
|
my @path = split(":", $ENV{'NEB_PATH'}||"."); |
14 |
|
|
15 |
|
foreach my $dir (@path) |
16 |
|
{ |
17 |
|
return "$dir/$F" if -f "$dir/$F"; |
18 |
|
} |
19 |
|
return $F; |
20 |
|
} |
21 |
|
|
22 |
sub init |
sub init |
23 |
{ |
{ |
24 |
my $self = shift; |
my $self = shift; |
36 |
my $offset = $text =~ tr/\n/\n/; |
my $offset = $text =~ tr/\n/\n/; |
37 |
|
|
38 |
local $INPUT_RECORD_SEPARATOR = undef; |
local $INPUT_RECORD_SEPARATOR = undef; |
39 |
my $F = $self->delete('neb:src'); |
my $F = _find_file($self->delete('neb:src')); |
40 |
|
|
41 |
$parents .= "::$F"; |
$parents .= "::$F"; |
42 |
|
|