Login
Clean up some self-compliance issues now that MagicNumbers
[gknop/Perl-Critic.git] / lib / Perl / Critic / Utils / PPIRegexp.pm
index 400c652..49b8c28 100644 (file)
@@ -9,10 +9,13 @@ package Perl::Critic::Utils::PPIRegexp;
 
 use strict;
 use warnings;
+
 use English qw(-no_match_vars);
-use PPI::Node;
+use Readonly;
 use Carp qw(croak);
 
+use PPI::Node;
+
 use base 'Exporter';
 
 our $VERSION = '1.082';
@@ -139,6 +142,8 @@ sub get_delimiters {
     }
 }
 
+Readonly::Scalar my $NO_DEPTH_USED  => -1;
+
 sub ppiify {
     my ($re) = @_;
     return if !$re;
@@ -148,7 +153,7 @@ sub ppiify {
     my $ppire = PPI::Node->new;
     my @stack = ($ppire);
     my $iter = $re->walker;
-    my $last_depth = -1;
+    my $last_depth = $NO_DEPTH_USED;
     while (my ($node, $depth) = $iter->()) {
         if ($last_depth > $depth) { # -> parent
             # walker() creates pseudo-closing nodes for reasons I don't understand