1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#
# $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__
=head1 NAME
WebService::YouTube - Perl interface to YouTube
=head1 VERSION
This document describes WebService::YouTube version 1.0.3
=head1 SYNOPSIS
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;
=head1 DESCRIPTION
This is a Perl interface to YouTube API and RSS.
See Developers Page L<http://youtube.com/dev> and About RSS L<http://www.youtube.com/rssls> for details.
B<I<This module support only Legacy API, does not support YouTube Data API based on Google data protocol.>>
See YouTube Data API Overview L<http://code.google.com/apis/youtube/overview.html> for details.
=head1 SUBROUTINES/METHODS
=head2 new(\%fields)
Creates and returns a new WebService::YouTube object.
%fields can contain parameters enumerated in L</ACCESSORS> section.
=head2 videos( )
Returns a L<WebService::YouTube::Videos> object.
=head2 feeds( )
Returns a L<WebService::YouTube::Feeds> object.
=head2 ACCESSORS
=head3 dev_id
Developer ID
=head3 ua
L<LWP::UserAgent> object
=head1 DIAGNOSTICS
None.
=head1 CONFIGURATION AND ENVIRONMENT
WebService::YouTube requires no configuration files or environment variables.
=head1 DEPENDENCIES
L<Class::Accessor::Fast>, L<WebService::YouTube::Videos>, L<WebService::YouTube::Feeds>
=head1 INCOMPATIBILITIES
L<WWW::YouTube>
=head1 BUGS AND LIMITATIONS
No bugs have been reported.
Please report any bugs or feature requests to
C<bug-webservice-youtube@rt.cpan.org>, or through the web interface at
L<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.
=head1 AUTHOR
Hironori Yoshida <yoshida@cpan.org>
=head1 LICENSE AND COPYRIGHT
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
=cut
|
