Changeset 10081

Timestamp:

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

Author:

daisuke

Message:

whoohoo, Class::Accessor::Fast!

Location:

lang/perl/WebService-Simple/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/WebService/Simple/Parser.pm (modified) (1 diff)
• lib/WebService/Simple/Parser/XML/LibXML.pm (modified) (2 diffs)

lang/perl/WebService-Simple/trunk/Makefile.PL

@@ -5 +5 @@
 all_from('lib/WebService/Simple.pm');
 
+requires( 'Class::Accessor::Fast' );
 requires( 'Class::Data::ConfigHash' );
 requires( 'Class::Inspector' );

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

@@ -1 +1 @@
 package WebService::Simple::Parser;
 use strict;
-
-sub new { bless {}, shift }
+use warnings;
+use base qw(Class::Accessor::Fast);
 
 1;

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 );
 }