WWW::Google::Video 0.3

WWW::Google::Video is a fetch the Google Video Information.

SYNOPSIS

use WWW::Google::Video;

$foo=new WWW::Google::Video;

$foo->fetch(http://video.google.com/videoplay?docid=1808273720725631796);
# The Google Video Page URL, such as http://video.google.com/videoplay?docid=blahblahblah

print $foo->{url},"n"; # Google Video FLV Original File URL !!
print $foo->{length},"n"; # Video Length Information
print $foo->{name},"n"; # Video Name Information

foreach(@{ $foo->{pic} }){ # By using Reference to an Array
print $_,"n"; # To show the preview pictures.
}

The WWW::Google::Video is a class implementing a interface for fetch the Google Video Information.

To use it, you should create WWW::Google::Video object and use its method fetch(), to fetch the information of Video.

It uses LWP::Simple for making request to Google.