aboutsummaryrefslogtreecommitdiffstats
path: root/lib/WWW/FairViewer
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WWW/FairViewer')
-rw-r--r--lib/WWW/FairViewer/Channels.pm23
-rw-r--r--lib/WWW/FairViewer/Videos.pm18
2 files changed, 16 insertions, 25 deletions
diff --git a/lib/WWW/FairViewer/Channels.pm b/lib/WWW/FairViewer/Channels.pm
index b08bfac..c554044 100644
--- a/lib/WWW/FairViewer/Channels.pm
+++ b/lib/WWW/FairViewer/Channels.pm
@@ -33,6 +33,17 @@ sub videos_from_username {
return $self->_get_results($self->_make_feed_url("channels/$channel_id/videos"));
}
+=head2 popular_videos($channel_id)
+
+Get the most popular videos for a given channel ID.
+
+=cut
+
+sub popular_videos {
+ my ($self, $channel_id) = @_;
+ return $self->_get_results($self->_make_feed_url("channels/$channel_id/videos", sort_by => 'popular'));
+}
+
=head2 channels_from_categoryID($category_id)
Return the YouTube channels associated with the specified category.
@@ -131,15 +142,13 @@ Return the channel ID for an username.
sub channel_id_from_username {
my ($self, $username) = @_;
- state $username_lookup = {};
-
- if (exists $username_lookup->{$username}) {
- return $username_lookup->{$username};
+ # A channel's username (if it doesn't include spaces) is also valid in place of ucid.
+ if ($username =~ /\w/ and not $username =~ /\s/) {
+ return $username;
}
- $username_lookup->{$username} = undef;
- my $channel = $self->channels_from_username($username) // return;
- $username_lookup->{$username} = $channel->{results}{items}[0]{id} // return;
+ # TODO: resolve channel name to channel ID
+ return $username;
}
=head2 channel_title_from_id($channel_id)
diff --git a/lib/WWW/FairViewer/Videos.pm b/lib/WWW/FairViewer/Videos.pm
index a0f5e1b..aaaacc7 100644
--- a/lib/WWW/FairViewer/Videos.pm
+++ b/lib/WWW/FairViewer/Videos.pm
@@ -81,24 +81,6 @@ sub trending_videos_from_category {
return $results;
}
-=head2 popular_videos($channel_id)
-
-Get the most popular videos for a given channel ID.
-
-=cut
-
-sub popular_videos {
- my ($self, $id) = @_;
-
- my $results = do {
- local $self->{channelId} = $id;
- local $self->{order} = 'viewCount';
- $self->search_videos("");
- };
-
- return $results;
-}
-
=head2 my_likes()
Get the videos liked by the authenticated user.