19 |
{ |
{ |
20 |
my $self = shift; |
my $self = shift; |
21 |
my $file = shift; |
my $file = shift; |
22 |
|
my $root = shift; |
23 |
|
|
24 |
|
$self->root($root) if defined($root); |
25 |
$self->parsefile($file) if $file; |
$self->parsefile($file) if $file; |
26 |
|
|
27 |
return $self; |
return $self; |
42 |
return $self; |
return $self; |
43 |
} |
} |
44 |
|
|
45 |
|
sub root |
46 |
|
{ |
47 |
|
my $self = shift; |
48 |
|
my $root = shift; |
49 |
|
|
50 |
|
$self->{ROOT} = $root |
51 |
|
if defined $root; |
52 |
|
|
53 |
|
return $self->{ROOT}; |
54 |
|
} |
55 |
|
|
56 |
sub parse |
sub parse |
57 |
{ |
{ |
58 |
my $self = shift; |
my $self = shift; |
59 |
my $text = shift; |
my $text = shift; |
60 |
$self->{PARSE} = new XML::Parser(Style => 'neb::Parser')->parse($text) |
# $self->{PARSE} = new XML::Parser(Style => 'neb::Parser')->parse($text) |
61 |
if defined $text; |
# if defined $text; |
62 |
|
if (defined $text) |
63 |
|
{ |
64 |
|
my $p = new XML::Parser(Style => 'neb::Parser'); |
65 |
|
$self->{PARSE} = $p->parse($text, 'neb_root_name' => $self->root); |
66 |
|
} |
67 |
|
|
68 |
return $self->{PARSE}; |
return $self->{PARSE}; |
69 |
} |
} |
70 |
|
|
71 |
sub begin { "use strict;\nuse Carp;\nuse warnings;\n\nmy \$OUTPUT = '';\n" } |
sub begin { "use strict;\nuse Carp;\nuse warnings;\n\nmy \$OUTPUT = '';\n" } |
72 |
sub end { "print \"\$OUTPUT\\n\";\n" } |
sub end { "print \"\$OUTPUT\";\n" } |
73 |
|
|
74 |
sub canonical |
sub canonical |
75 |
{ |
{ |