diff options
Diffstat (limited to 'lib/WWW/StrawViewer.pm')
-rw-r--r-- | lib/WWW/StrawViewer.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/lib/WWW/StrawViewer.pm b/lib/WWW/StrawViewer.pm index 42206d1..de13099 100644 --- a/lib/WWW/StrawViewer.pm +++ b/lib/WWW/StrawViewer.pm @@ -130,6 +130,39 @@ sub _our_smartmatch { return 0; } +sub basic_video_info_fields { + join(',', + qw( + title + videoId + description + published + publishedText + viewCount + likeCount + dislikeCount + genre + author + authorId + lengthSeconds + rating + liveNow + ) + ) +} + +sub extra_video_info_fields { + my ($self) = @_; + join(',', + $self->basic_video_info_fields, + qw( + subCountText + captions + isFamilyFriendly + ) + ); +} + { no strict 'refs'; |