Changeset 22389

Timestamp:

10/30/08 21:37:35 (5 years ago)

Author:

drry

Message:

• ディレクトリ名を変更しました。
  
• ほか。
  

Location:

lang/perl/WebService-Simple-Tumblr/trunk

Files:

• . (moved) (moved from lang/perl/WebService-Simple-Tumblr/turnk) (1 prop)
• lib/WebService/Simple/Tumblr.pm (modified) (2 diffs)
• lib/WebService/Simple/Tumblr/Parser.pm (modified) (7 diffs)
• lib/WebService/Simple/Tumblr/Post/Video.pm (modified) (1 diff)

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

@@ -19 +19 @@
 
 has '+response_parser' => (
-    default  => sub {
+    default => sub {
         WebService::Simple::Tumblr::Parser->new;
     },
@@ -45 +45 @@
     if ($url) {
         $url =~ s{/(?:api/read)?$}{};
-        $url .= "/api/read";
+        $url .= '/api/read';
         $self->base_url($url);
     }

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

@@ -47 +47 @@
 
     my @posts;
-    for my $node ( $doc->findnodes("/tumblr/posts/post") ) {
+    for my $node ( $doc->findnodes('/tumblr/posts/post') ) {
         push @posts, $self->parse_post($node);
     }
@@ -59 +59 @@
     my $args = {};
     my %map  = (
-        audio        => "parse_audio",
-        conversation => "parse_conversation",
-        link         => "parse_link",
-        photo        => "parse_photo",
-        quote        => "parse_quote",
-        regular      => "parse_regular",
-        video        => "parse_video",
+        audio        => 'parse_audio',
+        conversation => 'parse_conversation',
+        link         => 'parse_link',
+        photo        => 'parse_photo',
+        quote        => 'parse_quote',
+        regular      => 'parse_regular',
+        video        => 'parse_video',
     );
 
@@ -86 +86 @@
     );
 
-    for my $tag ( $node->findnodes("tag") ) {
+    for my $tag ( $node->findnodes('tag') ) {
         push @{ $args->{tags} }, $tag->textContent;
     }
 
-    my $class = "WebService::Simple::Tumblr::Post::" . ucfirst($type);
+    my $class = 'WebService::Simple::Tumblr::Post::' . ucfirst($type);
     Class::MOP::load_class($class);
     my $post = eval { $class->new(%$args) };
@@ -105 +105 @@
 
     my $strp = DateTime::Format::Strptime->new(
-        pattern   => '%F %T %Z',
-        on_error  => 'croak',
+        pattern  => '%F %T %Z',
+        on_error => 'croak',
     );
     return $strp->parse_datetime($date);
@@ -124 +124 @@
     my( $self, $node, $args ) = @_;
 
-    $args->{text}   = $node->findvalue('conversation-text');
+    $args->{text} = $node->findvalue('conversation-text');
 
     return 1;
@@ -145 +145 @@
 
     $image =~ /tumblr\.com\/(.*?)_500\.(.*?)$/
-        or die "Unknown format!";
+        or die 'Unknown format!';
     $args->{image_id} = $1;
     $args->{suffix}   = $2;
@@ -165 +165 @@
     my( $self, $node, $args ) = @_;
 
-    $args->{title}   = $node->findvalue('regular-title');
-    $args->{body} = $node->findvalue('regular-body');
+    $args->{title} = $node->findvalue('regular-title');
+    $args->{body}  = $node->findvalue('regular-body');
 
     return 1;

lang/perl/WebService-Simple-Tumblr/trunk/lib/WebService/Simple/Tumblr/Post/Video.pm

@@ -8 +8 @@
     default => 'video',
 );
- 
+
 has player => (
     is       => 'rw',