From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 4 Nov 2021 00:30:37 +0000 (-0700)
Subject: add sub get_spaces_level_ci for future use
X-Git-Tag: 20211029.01~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=03afaebe4cdea67046efefbd784714973fed31eb;p=perltidy.git

add sub get_spaces_level_ci for future use
---

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index b6da3510..f81b9c0f 100644
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -221,6 +221,11 @@ sub get_level {
     return $_[0]->[_level_];
 }
 
+sub get_spaces_level_ci {
+    my $self = shift;
+    return [ $self->[_spaces_], $self->[_level_], $self->[_ci_level_] ];
+}
+
 sub get_sequence_number {
     return $_[0]->[_sequence_number_];
 }