Chessa::URI::YouTube: smarter decision-making

scripts/Chessa/URI/Youtube.pm

@@ -24,29 +24,35 @@ sub wants($self, $uri) {
 }
 
 sub handle($self, $http, $on_info, $uri, $errors) {
-    my ($item, $kind, $fetch) = ('', '', '');
+    my ($item, $kind, $fetch);
 
     if ($uri->authority =~ /\.be(?:\:\d+)?$/) {
         $item = $uri->path;
         $item =~ s!^/!!;
         $kind = 'video';
-        $fetch = 'https://www.googleapis.com/youtube/v3/videos?id=%s&key=%s&fields=items(id,snippet(title,liveBroadcastContent),contentDetails(duration))&part=snippet,contentDetails';
+    } elsif ($uri->path =~ m!/shorts!) {
+        $item = $uri->path;
+        $item =~ s!^/shorts/!!;
+        $kind = 'video';
     } else {
         my %query = $uri->query_form;
-
         if (exists($query{v})) {
             ($item, $kind) = ($query{v}, 'video');
-            $fetch = 'https://www.googleapis.com/youtube/v3/videos?id=%s&key=%s&fields=items(id,snippet(title,channelTitle,liveBroadcastContent),contentDetails(duration))&part=snippet,contentDetails';
         } elsif (exists($query{list})) {
             ($item, $kind) = ($query{list}, 'playlist');
-            $fetch = 'https://www.googleapis.com/youtube/v3/playlists?id=%s&key=%s&part=snippet,contentDetails&fields=items(snippet(title,channelTitle),contentDetails(itemCount))';
-        } else {
-            # what else?
-            $self->{log}("Unknown YouTube item encountered: " . $uri);
-            return;
         }
     }
 
+    if ($kind eq 'video')
+        $fetch = 'https://www.googleapis.com/youtube/v3/videos?id=%s&key=%s&fields=items(id,snippet(title,liveBroadcastContent),contentDetails(duration))&part=snippet,contentDetails';
+    } elsif ($kind eq 'playlist') {
+        $fetch = 'https://www.googleapis.com/youtube/v3/playlists?id=%s&key=%s&part=snippet,contentDetails&fields=items(snippet(title,channelTitle),contentDetails(itemCount))';
+    } else {
+        # what else?
+        $self->{log}("Unknown YouTube item encountered: " . $uri);
+        return;
+    }
+
     $self->{log}("Fetching $kind $item from YouTube...");
 
     $http->do_request(