Lucas/Pooru
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Consistently use v5.40 everywhere

Browse source 
Also make the file headings more consistent with regards to spacingg.
This commit is contained in:
Lucas Gabriel Vuotto 2025-05-03 13:53:37 +00:00
parent c5eef1be0b
commit 19369d4dc2
12 changed files with 27 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/Pooru/API/V0.pm
View file

@ -1,5 +1,6 @@
package Pooru::API::V0; package Pooru::API::V0;
use Mojo::Base "Mojolicious", -signatures; use v5.40;
use Mojo::Base "Mojolicious";
use DBI; use DBI;
use DBIx::Migration; use DBIx::Migration;

3
lib/Pooru/API/V0/Controller/Media.pm
View file

@ -1,5 +1,6 @@
package Pooru::API::V0::Controller::Media; 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); use List::Util qw(uniq);

4
lib/Pooru/API/V0/Controller/Meta.pm
View file

@ -1,5 +1,7 @@
package Pooru::API::V0::Controller::Meta; package Pooru::API::V0::Controller::Meta;
use Mojo::Base "Mojolicious::Controller", -signatures; use v5.40;
use Mojo::Base "Mojolicious::Controller";
sub index ($self) sub index ($self)
{ {

3
lib/Pooru/API/V0/Controller/Tags.pm
View file

@ -1,5 +1,6 @@
package Pooru::API::V0::Controller::Tags; package Pooru::API::V0::Controller::Tags;
use Mojo::Base "Mojolicious::Controller", -signatures; use v5.40;
use Mojo::Base "Mojolicious::Controller";
sub list ($self) sub list ($self)

1
lib/Pooru/API/V0/Model/Media.pm
View file

@ -3,6 +3,7 @@ use v5.40;
use Pooru::API::V0::Model::PagedResults; use Pooru::API::V0::Model::PagedResults;
my $slice = {}; my $slice = {};
sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" } sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" }

1
lib/Pooru/API/V0/Model/Tags.pm
View file

@ -3,6 +3,7 @@ use v5.40;
use Pooru::API::V0::Model::PagedResults; use Pooru::API::V0::Model::PagedResults;
my $slice = {}; my $slice = {};
sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" } sub where_in ($k, @v) { "$k IN (" . join(",", split(//, "?" x @v)) . ")" }

4
lib/Pooru/Site.pm
View file

@ -1,5 +1,6 @@
package Pooru::Site; package Pooru::Site;
use Mojo::Base "Mojolicious", -signatures; use v5.40;
use Mojo::Base "Mojolicious";
use Pooru::Storage::Static; use Pooru::Storage::Static;
@ -7,6 +8,7 @@ use constant {
EXTENDED_PAGER_LENGTH => 7, EXTENDED_PAGER_LENGTH => 7,
}; };
sub extended_pager ($self, $pager) sub extended_pager ($self, $pager)
{ {
my (%pages, $start, $end, $mid); my (%pages, $start, $end, $mid);

4
lib/Pooru/Site/Controller/Media.pm
View file

@ -1,5 +1,7 @@
package Pooru::Site::Controller::Media; package Pooru::Site::Controller::Media;
use Mojo::Base "Mojolicious::Controller", -signatures; use v5.40;
use Mojo::Base "Mojolicious::Controller";
sub list ($self) sub list ($self)
{ {

4
lib/Pooru/Site/Controller/Random.pm
View file

@ -1,5 +1,7 @@
package Pooru::Site::Controller::Random; package Pooru::Site::Controller::Random;
use Mojo::Base "Mojolicious::Controller", -signatures; use v5.40;
use Mojo::Base "Mojolicious::Controller";
sub media ($self) sub media ($self)
{ {

4
lib/Pooru/Site/Controller/Tags.pm
View file

@ -1,5 +1,7 @@
package Pooru::Site::Controller::Tags; package Pooru::Site::Controller::Tags;
use Mojo::Base "Mojolicious::Controller", -signatures; use v5.40;
use Mojo::Base "Mojolicious::Controller";
sub list ($self) sub list ($self)
{ {

2
lib/Pooru/Storage.pm
View file

@ -1,7 +1,9 @@
package Pooru::Storage; package Pooru::Storage;
use v5.40; use v5.40;
use Carp; use Carp;
sub new ($class) { sub new ($class) {
return bless {}, $class; return bless {}, $class;
} }

2
lib/Pooru/Storage/Static.pm
View file

@ -1,8 +1,10 @@
package Pooru::Storage::Static; package Pooru::Storage::Static;
use v5.40; use v5.40;
use parent "Pooru::Storage"; use parent "Pooru::Storage";
use Storable qw(lock_store lock_retrieve); use Storable qw(lock_store lock_retrieve);
sub new ($class, $file, $prefix = "") sub new ($class, $file, $prefix = "")
{ {
my $self = $class->SUPER::new; my $self = $class->SUPER::new;