all: prefer postfix dereference syntax

lib/PoorBooru/Backend/Controller/Media.pm

@@ -27,7 +27,7 @@ sub list ($self)
 		media_src  => $self->seaweed->url_for(
 			SeaweedFS::FID->from_string($_->{seaweedfs_fid})
 		),
-	}, @{$res->json->{media}};
+	}, $res->json->{media}->@*;
 
 	return $self->render(
 		template => "gallery",

lib/PoorBooru/Backend/Controller/Tags.pm

@@ -24,7 +24,7 @@ sub list ($self)
 		name  => $_->{name},
 		count => $_->{count},
 		uri   => $self->url_for("tag_show", tag_id_or_name => $_->{name}),
-	}, @{$res->json->{tags}};
+	}, $res->json->{tags}->@*;
 
 	return $self->render(
 		template => "tags",
@@ -54,7 +54,7 @@ sub show ($self)
 		media_src  => $self->seaweed->url_for(
 			SeaweedFS::FID->from_string($_->{seaweedfs_fid})
 		),
-	}, @{$res->json->{media}};
+	}, $res->json->{media}->@*;
 
 	return $self->render(
 		template => "gallery",

lib/SeaweedFS/Client.pm

@@ -34,17 +34,17 @@ sub url_for
 
 	my $vid = $fid->volume_id;
 
-	if (!defined($self->{_vurls}{$vid}) || @{$self->{_vurls}{$vid}} == 0) {
+	if (!defined($self->{_vurls}{$vid}) || $self->{_vurls}{$vid}->@* == 0) {
 		my $res = $self->{_ua}
 		    ->get("$self->{_murl}/dir/lookup?fileId=$fid&read=yes")
 		    ->result;
 
 		$self->{_vurls}{$vid} = [
-			map { $_->{publicUrl} } @{$res->json->{locations}}
+			map { $_->{publicUrl} } $res->json->{locations}->@*
 		];
 	}
 
-	my $url = sample(1, @{$self->{_vurls}{$vid}});
+	my $url = sample(1, $self->{_vurls}{$vid}->@*);
 	return undef unless defined $url;
 
 	$url = "http://$url" if $url !~ m{^https?://};

templates/gallery.html.ep

@@ -1,7 +1,7 @@
 % layout "main";
 
 <div class="flex-c-horizontal flex-c-wrap gallery">
-% for my $m (@$media) {
+% for my $m ($media->@*) {
   <%= link_to $m->{media_link} => begin %>
     <%= image $m->{media_src} %>
   <% end %>

templates/tags.html.ep

@@ -1,7 +1,7 @@
 % layout "main";
 
 <p class="text-center">
-% for my $t (@$tags) {
+% for my $t ($tags->@*) {
   <%= link_to "$t->{name} ($t->{count})" => $t->{uri} %>
 % }
 </p>