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?://};