NAME

WWW::Google::Video - 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.
}

DESCRIPTION

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.

COPYRIGHT

Copyright 2005 by Lilo Huang All Rights Reserved.

You can use this module under the same terms as Perl itself.