Changeset 10435 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Lite.pm

Timestamp:

04/25/08 17:28:20 (7 months ago)

Author:

mattn

Message:

* タブ修正
* 私は自己顕示欲はそれ程強くありませんが...

Files:

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

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

@@ -11 +11 @@
     my %args  = @_;
 
-        my $lite = delete $args{lite} || XML::Parser::Lite::Tree::instance();
+    my $lite = delete $args{lite} || XML::Parser::Lite::Tree::instance();
     my $self  = $class->SUPER::new(%args);
     $self->{lite} = $lite;
@@ -21 +21 @@
     my $self = shift;
     XML::Parser::Lite::Tree::XPath->new(
-                $self->{lite}->parse( $_[0]->content ) );
+        $self->{lite}->parse( $_[0]->content ) );
 }
 
@@ -48 +48 @@
 =head2 parse_response
 
+=head1 AUTHOR
+
+mattn C<< <mattn.jp@gmail.com> >>
+
 =cut