bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use formerly experimental Perl features with "use experimental"

Browse source 
This is semantically equivalent to use feature + no warnings, but less
noisy. I've also added comments to indicate when the line can be
removed.
This commit is contained in:
Juerd Waalboer 2023-09-10 02:08:29 +02:00
parent c465ae1445
commit 59387ddba4
10 changed files with 12 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/RevBank/Amount.pm
View file

@ -2,8 +2,8 @@ package RevBank::Amount;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'isa'; # stable since v5.32
no warnings qw(experimental::signatures); use experimental 'signatures'; # stable since v5.36
use Carp qw(carp croak); use Carp qw(carp croak);
use Scalar::Util; use Scalar::Util;
@ -13,7 +13,7 @@ our $C = __PACKAGE__;
sub _coerce { sub _coerce {
for (@_) { for (@_) {
unless (ref and UNIVERSAL::isa($_, $C)) { unless ($_ isa $C) {
croak "Unsupported operation on $C with " . ref if ref; croak "Unsupported operation on $C with " . ref if ref;
croak "Unsupported operation on $C with undef" if not defined; croak "Unsupported operation on $C with undef" if not defined;

3
lib/RevBank/Cart.pm
View file

@ -2,8 +2,7 @@ package RevBank::Cart;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use Carp (); use Carp ();
use List::Util (); use List::Util ();

3
lib/RevBank/Cart/Entry.pm
View file

@ -2,8 +2,7 @@ package RevBank::Cart::Entry;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use Carp qw(carp croak); use Carp qw(carp croak);
use RevBank::Users; use RevBank::Users;

3
lib/RevBank/FileIO.pm
View file

@ -2,8 +2,7 @@ package RevBank::FileIO;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use autodie; use autodie;
use Fcntl qw(:flock); use Fcntl qw(:flock);

3
lib/RevBank/Global.pm
View file

@ -2,8 +2,7 @@ package RevBank::Global;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use POSIX qw(strftime); use POSIX qw(strftime);
use RevBank::Amount; use RevBank::Amount;

3
lib/RevBank/Messages.pm
View file

@ -2,8 +2,7 @@ package RevBank::Messages;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use RevBank::Global; use RevBank::Global;
use base 'RevBank::Plugin'; use base 'RevBank::Plugin';

3
lib/RevBank/Plugin.pm
View file

@ -2,8 +2,7 @@ package RevBank::Plugin;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
require RevBank::Global; require RevBank::Global;

3
lib/RevBank/Plugins.pm
View file

@ -2,8 +2,7 @@ package RevBank::Plugins;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use RevBank::Eval; use RevBank::Eval;
use RevBank::Plugin; use RevBank::Plugin;

3
lib/RevBank/TextEditor.pm
View file

@ -2,8 +2,7 @@ package RevBank::TextEditor;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use autodie; use autodie;
use RevBank::Global; use RevBank::Global;

3
lib/RevBank/Users.pm
View file

@ -2,8 +2,7 @@ package RevBank::Users;
use v5.28; use v5.28;
use warnings; use warnings;
use feature qw(signatures); use experimental 'signatures'; # stable since v5.36
no warnings qw(experimental::signatures);
use RevBank::Global; use RevBank::Global;
use RevBank::Plugins; use RevBank::Plugins;