Changeset 10170

Timestamp:

2005-06-24T14:11:00+12:00 (19 years ago)

Author:

kjdon

Message:

made our, added two parse methods - if you want to do xml parsing from a subclass, can't call the parser directly

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -55 +55 @@
 
 
-my ($self);
+our ($self);
 sub new {
     my $class = shift (@_);
@@ -204 +204 @@
     # we'll just continue quietly
 
-    ## print STDERR "**** Error is: $@\n";
+    print STDERR "**** Error is: $@\n";
 
     my ($msg) = $@ =~ /Carp::croak\(\'(.*?)\'\)/;
@@ -220 +220 @@
 
     return 1; # processed the file
+}
+
+# the following two methods are for if you want to do the parsing from a
+# plugin that inherits from this. it seems that you can't call the parse 
+# methods directly. WHY???
+sub parse_file {
+    $self = shift (@_); 
+    my ($filename) = @_;
+    $self->{'parser'}->parsefile($filename);
+}
+
+sub parse_string {
+    $self = shift (@_); 
+    my ($xml_string) = @_;
+    $self->{'parser'}->parse($xml_string);
 }