Changeset 10435

Timestamp:

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

Author:

mattn

Message:

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

Location:

lang/perl/WebService-Simple/trunk

Files:

• example/flickr_search_liteparser.pl (modified) (1 diff)
• lib/WebService/Simple/Parser/XML/Lite.pm (modified) (3 diffs)

lang/perl/WebService-Simple/trunk/example/flickr_search_liteparser.pl

@@ -14 +14 @@
 my $format = 'http://static.flickr.com/${server}/${id}_${secret}_m.jpg';
 for my $photo ($response->parse_response->select_nodes('/rsp/photos/photo')) {
-        my $image = $format;
-        print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n";
+    my $image = $format;
+    print $image =~ s/\${(\w+)}/$photo->{attributes}->{$1}/ge && "$image\n";
 }

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