NAME

WWW::YourFileHost - Get video informations from YourFileHost

SYNOPSIS

use LWP::UserAgent;
use WWW::YourFileHost;
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(
        file     => '',
        autosave => 1,
    )
);
my $yourfilehost = WWW::YourFileHost->new( url => $url );
print $yourfilehost->photo . "\n";
print $yourfilehost->video_id . "\n";
print $yourfilehost->embed . "\n";

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.