Lucas/PoorBooru
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

all: prefer postfix dereference syntax

Browse source
This commit is contained in:
Lucas 2023-03-21 21:43:36 +00:00
parent 56ee34eb7c
commit 396ab297a8
5 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/PoorBooru/Backend/Controller/Media.pm
View file

@ -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",

4
lib/PoorBooru/Backend/Controller/Tags.pm
View file

@ -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",

6
lib/SeaweedFS/Client.pm
View file

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