Changeset 28301 for lang/perl/WWW-Tube8

Timestamp:

01/12/09 00:15:27 (13 months ago)

Author:

bayashi

Message:

get more info. and add tests.

Location:

lang/perl/WWW-Tube8/trunk

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• META.yml (modified) (3 diffs)
• lib/WWW/Tube8.pm (modified) (5 diffs)
• t/01.basic.t (modified) (3 diffs)

lang/perl/WWW-Tube8/trunk/Build.PL

@@ -9 +9 @@
     dist_version_from   => 'lib/WWW/Tube8.pm',
     requires => {
-        'Test::More'     => 0,
-        'Carp'           => 0,
-        'LWP::UserAgent' => 0,
+        'Test::More'      => 0,
+        'Carp'            => 0,
+        'LWP::UserAgent'  => 0,
+        'Class::Accessor' => 0,
     },
     add_to_cleanup      => [ 'WWW-Tube8-*' ],

lang/perl/WWW-Tube8/trunk/Changes

@@ -1 +1 @@
 Revision history for WWW-Tube8
+
+0.0.2  Mon Jan 12 00:05:05 2009
+       get more info. and add tests.
 
 0.0.1  Sat Jan 10 12:34:56 2009

lang/perl/WWW-Tube8/trunk/META.yml

@@ -1 +1 @@
 ---
 name: WWW-Tube8
-version: 0.0.1
+version: 0.0.2
 author:
   - 'Dai Okabayashi <bayashi@cpan.org>'
@@ -10 +10 @@
 requires:
   Carp: 0
+  Class::Accessor: 0
   LWP::UserAgent: 0
   Test::More: 0
@@ -15 +16 @@
   WWW::Tube8:
     file: lib/WWW/Tube8.pm
-    version: 0.0.1
+    version: 0.0.2
 generated_by: Module::Build version 0.3
 meta-spec:

lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm

@@ -5 +5 @@
 use Carp qw( croak );
 
-use version; our $VERSION = qv('0.0.1');
+use version; our $VERSION = qv('0.0.2');
 
 use LWP::UserAgent;
+
+use base qw(Class::Accessor);
+__PACKAGE__->mk_accessors(
+    qw( flv thumb get_3gp url id title title_inurl category category_url duration )
+);
 
 sub new {
@@ -19 +24 @@
 
     croak "url is required" unless $self->{url};
-    croak "url is not tube8" if $self->{url} !~ /^http:\/\/www\.tube8\.com\//;
-
+    croak "url is wrong (perhaps not movie page of tube8.com)"
+        if $self->url !~ m!^http://www.tube8.com/[^/]+/([^/]+)/(\d+)/!;
+    $self->title_inurl($1);
+    $self->id($2);
     $self->_get_info;
 
@@ -34 +41 @@
 
     while ( $tube8_page =~ s/so\.addVariable\('([^']+)','([^']+)'\);// ) {
-        my $key   = $1;
-        my $value = $2;
+        my ($key, $value) = ($1, $2);
         if ($key) {
             if ( $key eq 'videoUrl' && $value =~ /\.flv$/ ) {
-                $self->{flv} = $value;
+                $self->flv($value);
             }
             elsif ( $key eq 'imageUrl' && $value =~ /\.jpg$/ ) {
-                $self->{thumb} = 'http://www.tube8.com' . $value;
+                $self->thumb('http://www.tube8.com' . $value);
             }
         }
     }
-    ( $self->{'3gp'} )
-        = (
-        $tube8_page =~ /<a href="([^"]+\.3gp)">Download video for mobile/ );
-}
-
-sub flv {
-    my $self = shift;
-
-    return $self->{flv} if $self->{flv};
-}
-
-sub thumb {
-    my $self = shift;
-
-    return $self->{thumb} if $self->{thumb};
-}
-
-sub get_3gp {
-    my $self = shift;
-
-    return $self->{'3gp'} if $self->{'3gp'};
+    $self->get_3gp(
+        $tube8_page =~ /<a href="([^"]+\.3gp)">Download video for mobile/ ) ;
+    $self->title(
+        $tube8_page =~ /<td[^>]+><strong>Title<\/strong>: ([^<]+)<\/td>/ );
+    $self->duration(
+        $tube8_page =~ /<td[^>]+><strong>Duration<\/strong>: ([^<]+)<\/td>/ );
+    $tube8_page =~ /<td[^>]+><strong>Category<\/strong>: <a href='([^']+)'><b>([^<]+)<\/b><\/a><\/td>/;
+    $self->category_url($1);
+    $self->category($2);
 }
 
@@ -89 +83 @@
     my $t8 = WWW::Tube8->new({
         url => 'http://www.tube8.com/category/hoge-hoge-/00000/',
-        ua  => $ua,
+        ua  => $ua, # optional
     });
 
-    print $t8->flv     . "\n";
-    print $t8->thumb   . "\n";
-    print $t8->get_3gp . "\n";
+    print $t8->flv          . "\n";
+    print $t8->thumb        . "\n";
+    print $t8->get_3gp      . "\n";
+    print $t8->url          . "\n";
+    print $t8->id           . "\n";
+    print $t8->title        . "\n";
+    print $t8->title_inurl  . "\n";
+    print $t8->category     . "\n";
+    print $t8->category_url . "\n";
+    print $t8->duration     . "\n";
 
 
@@ -104 +105 @@
 
 Creates a new WWW::Tube8 instance.
+required param only url.
+
+
+you can get video infomations like follow
 
 =item flv
 
-get the url of flv file
-
 =item thumb
-
-get the url of thumbnail file
 
 =item get_3gp
 
-get the url of 3gp(mp4) file
+=item url
+
+=item id
+
+=item title
+
+=item title_inurl
+
+=item category
+
+=item category_url
+
+=item duration
 
 =back

lang/perl/WWW-Tube8/trunk/t/01.basic.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 8;
+use Test::More tests => 14;
 use WWW::Tube8;
 
@@ -16 +16 @@
     my $t8 = WWW::Tube8->new({ url => 'http://www.example.com/' });
 };
-like $@, qr/url is not tube8/, 'new : not tube8 url';
+like $@, qr/url is wrong/, 'new : not tube8 url';
 
 my $ua = LWP::UserAgent->new(agent => 'WWW::Tube8.test');
@@ -36 +36 @@
      'get_3gp : get url of 3gp file';
 
+is $t8->id, '71930', 'id : get id of video';
 
+is $t8->title, 'Japanese AV Haruka Sanada', 'title : get title of video';
 
+is $t8->title_inurl, 'japanese-av-haruka-sanada', 'title_inurl : get title of video for url';
+
+is $t8->category, 'Asian', 'category : get category of video';
+
+is $t8->category_url, 'http://www.tube8.com/cat/asian/12/', 'category_url : get category link of video';
+
+is $t8->duration, '23:00', 'duration : get duration of video';