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;
use Mojo::Base "Mojolicious", -signatures;
use v5.40;
use Mojo::Base "Mojolicious";
use DBI;
use DBIx::Migration;

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

@ -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);

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

@ -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)
{

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

@ -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)

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

@ -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)) . ")" }

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

@ -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)) . ")" }

4
lib/Pooru/Site.pm
View file

@ -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);

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

@ -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)
{

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

@ -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)
{

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

@ -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)
{

2
lib/Pooru/Storage.pm
View file

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

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

@ -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;