/ 
WWW-Tube8-v1.1.1
/ WWW::Tube8

NAME

WWW::Tube8 - Get video informations from tube8.com

SYNOPSIS

use LWP::UserAgent;
use WWW::Tube8;

my $ua = LWP::UserAgent->new(
    timeout => 30,
);

my $t8 = WWW::Tube8->new({
    url => 'http://www.tube8.com/category/hoge-hoge-/00000/',
    ua  => $ua, # optional
});

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";
for my $rv ( @{ $t8->related_videos } ) {
    print "$rv->{title}\t$rv->{url}\n";
}

METHOD

new($hash_ref)

Creates a new WWW::Tube8 instance. required param is url only. you can get video infomations like follow.

flv
thumb
get_3gp
url
id
title
title_inurl
category
category_url
duration

AUTHOR

Copyright (c) 2009, Dai Okabayashi <bayashi@cpan.org>

LICENCE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.