Changeset 28301 for lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm

Timestamp:

01/12/09 00:15:27 (3 years ago)

Author:

bayashi

Message:

get more info. and add tests.

Files:

• lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm (modified) (5 diffs)

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