[i] Minor inner refactoring

Took 7 minutes
AlexP007 · Jan 16, 2022 · 62a093b · 62a093b
1 parent f9c9e72
commit 62a093b
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 5 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,3 +1,6 @@
+1.24     2022-01-16 10:59:29 Europe/Moscow
+       - Minor inner refactoring
+
 1.23     2022-01-15 20:19:14 Europe/Moscow
        - Start using feature qw(signatures)
 

diff --git a/dist.ini b/dist.ini
@@ -5,7 +5,7 @@ license          = Perl_5
 copyright_holder = Alexander Panteleev
 copyright_year   = 2022
 
-version = 1.23
+version = 1.24
 
 [AutoPrereqs]
 

diff --git a/lib/Regex/Object.pm b/lib/Regex/Object.pm
@@ -13,7 +13,7 @@ use Moo;
 no warnings qw(experimental::signatures);
 use namespace::clean;
 
-our $VERSION = '1.23';
+our $VERSION = '1.24';
 
 tie my %nc,  "Tie::Hash::NamedCapture";
 tie my %nca, "Tie::Hash::NamedCapture", all => 1;
@@ -83,7 +83,7 @@ Regex::Object - solves problems with global Regex variables side effects.
 
 =head1 VERSION
 
-version 1.23
+version 1.24
 
 =head1 SYNOPSIS
 

diff --git a/lib/Regex/Object/Match.pm b/lib/Regex/Object/Match.pm
@@ -22,7 +22,7 @@ has success => (
     is => 'rwp',
 );
 
-sub BUILD($self, $args) {
+sub BUILD($self, $) {
     $self->_set_success(defined $self->match);
 }
 

diff --git a/lib/Regex/Object/Matches.pm b/lib/Regex/Object/Matches.pm
@@ -20,7 +20,7 @@ has count => (
     is => 'rwp',
 );
 
-sub BUILD($self, $args) {
+sub BUILD($self, $) {
     $self->_set_count(scalar @{$self->collection});
 }