Changeset 10081 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/LibXML.pm

Timestamp:

04/21/08 21:59:48 (7 months ago)

Author:

daisuke

Message:

whoohoo, Class::Accessor::Fast!

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/LibXML.pm (modified) (2 diffs)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/LibXML.pm

@@ -4 +4 @@
 use base qw(WebService::Simple::Parser);
 use XML::LibXML;
+
+__PACKAGE__->mk_accessors($_) for qw(libxml);
 
 sub new
@@ -16 +18 @@
 {
     my $self = shift;
-    $self->{libxml}->parse_string( $_[0]->content );
+    $self->libxml->parse_string( $_[0]->content );
 }