5 |
use Carp; |
use Carp; |
6 |
use neb::Tree::Tag; |
use neb::Tree::Tag; |
7 |
use neb::Quoter; |
use neb::Quoter; |
8 |
|
use neb::Misc qw'find_file'; |
9 |
use neb; |
use neb; |
10 |
our @ISA = ('neb::Tree::Tag'); |
our @ISA = ('neb::Tree::Tag'); |
11 |
|
|
|
sub _find_file |
|
|
{ |
|
|
my $F = shift; |
|
|
my @path = split(":", $ENV{'NEB_PATH'}||"."); |
|
|
|
|
|
foreach my $dir (@path) |
|
|
{ |
|
|
return "$dir/$F" if -f "$dir/$F"; |
|
|
} |
|
|
return $F; |
|
|
} |
|
|
|
|
12 |
sub init |
sub init |
13 |
{ |
{ |
14 |
my $self = shift; |
my $self = shift; |
29 |
my $offset = $text =~ tr/\n/\n/; |
my $offset = $text =~ tr/\n/\n/; |
30 |
|
|
31 |
local $INPUT_RECORD_SEPARATOR = undef; |
local $INPUT_RECORD_SEPARATOR = undef; |
32 |
my $F = _find_file($self->delete('neb:src')); |
my $F = find_file($self->delete('neb:src')); |
33 |
|
|
34 |
|
|
35 |
$parents .= "::$F"; |
$parents .= "::$F"; |