Support input URLs

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';