| WebService-YouTube documentation | Contained in the WebService-YouTube distribution. |
WebService::YouTube - Perl interfece to YouTube
This document describes WebService::YouTube version 1.0.3
use WebService::YouTube;
my $youtube = WebService::YouTube->new( { dev_id => 'YOUR_DEV_ID' } );
# Get videos via REST API
my @videos = $youtube->videos->list_featured;
# Get videos via RSS Feed
my @videos = $youtube->feeds->recently_added;
This is a Perl interface to YouTube API and RSS. See Developers Page http://youtube.com/dev and About RSS http://www.youtube.com/rssls for details.
This module support only Legacy API, does not support YouTube Data API based on Google data protocol. See YouTube Data API Overview http://code.google.com/apis/youtube/overview.html for details.
Creates and returns a new WebService::YouTube object. %fields can contain parameters enumerated in ACCESSORS section.
Returns a WebService::YouTube::Videos object.
Returns a WebService::YouTube::Feeds object.
Developer ID
LWP::UserAgent object
None.
WebService::YouTube requires no configuration files or environment variables.
WWW::YouTube
No bugs have been reported.
Please report any bugs or feature requests to
bug-webservice-youtube@rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WebService-YouTube.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
Hironori Yoshida <yoshida@cpan.org>
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
| WebService-YouTube documentation | Contained in the WebService-YouTube distribution. |
# # $Id: YouTube.pm 11 2007-04-09 04:34:01Z hironori.yoshida $ # package WebService::YouTube; use strict; use warnings; use version; our $VERSION = qv('1.0.3'); use base qw(Class::Accessor::Fast); __PACKAGE__->mk_accessors(qw(dev_id ua)); use Carp; use WebService::YouTube::Feeds; use WebService::YouTube::Videos; sub videos { my $self = shift; $self->{_videos} ||= WebService::YouTube::Videos->new($self); return $self->{_videos}; } sub feeds { my $self = shift; $self->{_feeds} ||= WebService::YouTube::Feeds->new($self); return $self->{_feeds}; } 1; __END__