From 19369d4dc2c3d422543d6db107dbad798ed80b8d Mon Sep 17 00:00:00 2001 From: Lucas Gabriel Vuotto Date: Sat, 3 May 2025 13:53:37 +0000 Subject: [PATCH] Consistently use v5.40 everywhere Also make the file headings more consistent with regards to spacingg. --- lib/Pooru/API/V0.pm | 3 ++- lib/Pooru/API/V0/Controller/Media.pm | 3 ++- lib/Pooru/API/V0/Controller/Meta.pm | 4 +++- lib/Pooru/API/V0/Controller/Tags.pm | 3 ++- lib/Pooru/API/V0/Model/Media.pm | 1 + lib/Pooru/API/V0/Model/Tags.pm | 1 + lib/Pooru/Site.pm | 4 +++- lib/Pooru/Site/Controller/Media.pm | 4 +++- lib/Pooru/Site/Controller/Random.pm | 4 +++- lib/Pooru/Site/Controller/Tags.pm | 4 +++- lib/Pooru/Storage.pm | 2 ++ lib/Pooru/Storage/Static.pm | 2 ++ 12 files changed, 27 insertions(+), 8 deletions(-) diff --git a/lib/Pooru/API/V0.pm b/lib/Pooru/API/V0.pm index 24d53c7..b9c2465 100644 --- a/lib/Pooru/API/V0.pm +++ b/lib/Pooru/API/V0.pm @@ -1,5 +1,6 @@ package Pooru::API::V0; -use Mojo::Base "Mojolicious", -signatures; +use v5.40; +use Mojo::Base "Mojolicious"; use DBI; use DBIx::Migration; diff --git a/lib/Pooru/API/V0/Controller/Media.pm b/lib/Pooru/API/V0/Controller/Media.pm index 75a6b58..474fdd0 100644 --- a/lib/Pooru/API/V0/Controller/Media.pm +++ b/lib/Pooru/API/V0/Controller/Media.pm @@ -1,5 +1,6 @@ package Pooru::API::V0::Controller::Media; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; use List::Util qw(uniq); diff --git a/lib/Pooru/API/V0/Controller/Meta.pm b/lib/Pooru/API/V0/Controller/Meta.pm index 7d7cbfe..f13b000 100644 --- a/lib/Pooru/API/V0/Controller/Meta.pm +++ b/lib/Pooru/API/V0/Controller/Meta.pm @@ -1,5 +1,7 @@ package Pooru::API::V0::Controller::Meta; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; + sub index ($self) { diff --git a/lib/Pooru/API/V0/Controller/Tags.pm b/lib/Pooru/API/V0/Controller/Tags.pm index 9ccfcb1..c1d8b76 100644 --- a/lib/Pooru/API/V0/Controller/Tags.pm +++ b/lib/Pooru/API/V0/Controller/Tags.pm @@ -1,5 +1,6 @@ package Pooru::API::V0::Controller::Tags; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; sub list ($self) diff --git a/lib/Pooru/API/V0/Model/Media.pm b/lib/Pooru/API/V0/Model/Media.pm index d8247a6..1748678 100644 --- a/lib/Pooru/API/V0/Model/Media.pm +++ b/lib/Pooru/API/V0/Model/Media.pm @@ -3,6 +3,7 @@ use v5.40; use Pooru::API::V0::Model::PagedResults; + my $slice = {}; sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" } diff --git a/lib/Pooru/API/V0/Model/Tags.pm b/lib/Pooru/API/V0/Model/Tags.pm index f6d2395..fcd720a 100644 --- a/lib/Pooru/API/V0/Model/Tags.pm +++ b/lib/Pooru/API/V0/Model/Tags.pm @@ -3,6 +3,7 @@ use v5.40; use Pooru::API::V0::Model::PagedResults; + my $slice = {}; sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" } diff --git a/lib/Pooru/Site.pm b/lib/Pooru/Site.pm index a2e4abc..fefe051 100644 --- a/lib/Pooru/Site.pm +++ b/lib/Pooru/Site.pm @@ -1,5 +1,6 @@ package Pooru::Site; -use Mojo::Base "Mojolicious", -signatures; +use v5.40; +use Mojo::Base "Mojolicious"; use Pooru::Storage::Static; @@ -7,6 +8,7 @@ use constant { EXTENDED_PAGER_LENGTH => 7, }; + sub extended_pager ($self, $pager) { my (%pages, $start, $end, $mid); diff --git a/lib/Pooru/Site/Controller/Media.pm b/lib/Pooru/Site/Controller/Media.pm index 5e3e155..cbd54f7 100644 --- a/lib/Pooru/Site/Controller/Media.pm +++ b/lib/Pooru/Site/Controller/Media.pm @@ -1,5 +1,7 @@ package Pooru::Site::Controller::Media; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; + sub list ($self) { diff --git a/lib/Pooru/Site/Controller/Random.pm b/lib/Pooru/Site/Controller/Random.pm index c1b15a6..be89e02 100644 --- a/lib/Pooru/Site/Controller/Random.pm +++ b/lib/Pooru/Site/Controller/Random.pm @@ -1,5 +1,7 @@ package Pooru::Site::Controller::Random; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; + sub media ($self) { diff --git a/lib/Pooru/Site/Controller/Tags.pm b/lib/Pooru/Site/Controller/Tags.pm index 2e9e6ae..048782f 100644 --- a/lib/Pooru/Site/Controller/Tags.pm +++ b/lib/Pooru/Site/Controller/Tags.pm @@ -1,5 +1,7 @@ package Pooru::Site::Controller::Tags; -use Mojo::Base "Mojolicious::Controller", -signatures; +use v5.40; +use Mojo::Base "Mojolicious::Controller"; + sub list ($self) { diff --git a/lib/Pooru/Storage.pm b/lib/Pooru/Storage.pm index d8c4162..ab91092 100644 --- a/lib/Pooru/Storage.pm +++ b/lib/Pooru/Storage.pm @@ -1,7 +1,9 @@ package Pooru::Storage; use v5.40; + use Carp; + sub new ($class) { return bless {}, $class; } diff --git a/lib/Pooru/Storage/Static.pm b/lib/Pooru/Storage/Static.pm index d07381b..3c42ea5 100644 --- a/lib/Pooru/Storage/Static.pm +++ b/lib/Pooru/Storage/Static.pm @@ -1,8 +1,10 @@ package Pooru::Storage::Static; use v5.40; use parent "Pooru::Storage"; + use Storable qw(lock_store lock_retrieve); + sub new ($class, $file, $prefix = "") { my $self = $class->SUPER::new;