2 |
use lib "$ENV{HOME}/public_perl/"; |
use lib "$ENV{HOME}/public_perl/"; |
3 |
use strict; |
use strict; |
4 |
use English; |
use English; |
5 |
use Carp qw(cluck); |
use Carp qw(cluck confess); |
6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
use Getopt::Long; |
use Getopt::Long; |
8 |
use neb; |
use neb; |
9 |
|
|
10 |
BEGIN { our $DEBUG = 0; } |
BEGIN { our $DEBUG = 0; } |
11 |
#BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } } |
#BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } } |
12 |
|
#BEGIN { $SIG{'__DIE__'} = sub { confess @_; } } |
13 |
|
|
14 |
my $exec = 1; |
my $exec = 1; |
15 |
my $tree = 0; |
my $tree = 0; |
24 |
|
|
25 |
foreach my $file (@ARGV) |
foreach my $file (@ARGV) |
26 |
{ |
{ |
27 |
my $neb = neb->new($file); |
my $neb = neb->new($file, '/'); |
28 |
|
|
29 |
if ($tree) |
if ($tree) |
30 |
{ |
{ |