NAME

WWW::YourFileHost - Get video informations from YourFileHost

SYNOPSIS

use LWP::UserAgent;
use WWW::YourFileHost;
use Perl6::Say;

my $url = "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv";
my $ua  = LWP::UserAgent->new( agent => "WWW::YourFileHost" );
$ua->cookie_jar( HTTP::Cookies->new );
my $yourfilehost = WWW::YourFileHost->new( url => $url , ua => $ua );
say $yourfilehost->photo;
say $yourfilehost->video_id;
say $yourfilehost->embed;

AUTHOR

Yusuke Wada <yusuke@kamawada.com>

LICENCE AND COPYRIGHT

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