diff options
Diffstat (limited to 'lib/WWW/StrawViewer/GuideCategories.pm')
-rw-r--r-- | lib/WWW/StrawViewer/GuideCategories.pm | 85 |
1 files changed, 0 insertions, 85 deletions
diff --git a/lib/WWW/StrawViewer/GuideCategories.pm b/lib/WWW/StrawViewer/GuideCategories.pm deleted file mode 100644 index 1f164b1..0000000 --- a/lib/WWW/StrawViewer/GuideCategories.pm +++ /dev/null @@ -1,85 +0,0 @@ -package WWW::StrawViewer::GuideCategories; - -use utf8; -use 5.014; -use warnings; - -=head1 NAME - -WWW::StrawViewer::GuideCategories - Categories interface. - -=head1 SYNOPSIS - - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); - my $videos = $obj->youtube_categories('US'); - -=head1 SUBROUTINES/METHODS - -=cut - -sub _make_guideCategories_url { - my ($self, %opts) = @_; - - if (not exists $opts{id}) { - $opts{regionCode} //= $self->get_regionCode; - } - - $self->_make_feed_url('guideCategories', hl => $self->get_hl, %opts); -} - -=head2 guide_categories(;$region_id) - -Return guide categories for a specific region ID. - -=head2 guide_categories_info($category_id) - -Return info for a list of comma-separated category IDs. - -=cut - -{ - no strict 'refs'; - - foreach my $method ( - { - key => 'id', - name => 'guide_categories_info', - }, - { - key => 'regionCode', - name => 'guide_categories', - }, - ) { - *{__PACKAGE__ . '::' . $method->{name}} = sub { - my ($self, $id) = @_; - return $self->_get_results($self->_make_guideCategories_url($method->{key} => $id // return)); - }; - } -} - -=head1 AUTHOR - -Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> - - -=head1 SUPPORT - -You can find documentation for this module with the perldoc command. - - perldoc WWW::StrawViewer::GuideCategories - - -=head1 LICENSE AND COPYRIGHT - -Copyright 2013-2015 Trizen. - -This program is free software; you can redistribute it and/or modify it -under the terms of either: the GNU General Public License as published -by the Free Software Foundation; or the Artistic License. - -See L<http://dev.perl.org/licenses/> for more information. - -=cut - -1; # End of WWW::StrawViewer::GuideCategories |