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 warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);
use experimental 'isa'; # stable since v5.32
use experimental 'signatures'; # stable since v5.36
use Carp qw(carp croak);
use Scalar::Util;
@ -13,7 +13,7 @@ our $C = __PACKAGE__;
sub _coerce {
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 undef" if not defined;

3
lib/RevBank/Cart.pm
View file

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

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

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

3
lib/RevBank/FileIO.pm
View file

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

3
lib/RevBank/Global.pm
View file

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

3
lib/RevBank/Messages.pm
View file

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

3
lib/RevBank/Plugin.pm
View file

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

3
lib/RevBank/Plugins.pm
View file

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

3
lib/RevBank/TextEditor.pm
View file

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

3
lib/RevBank/Users.pm
View file

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