add sub get_spaces_level_ci for future use

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index b6da3510cede18fe542a43fde292e9d304847ef4..f81b9c0fd129e81ecf3cb6504ef0af0a529f7e0f 100644 (file)
--- 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_];
 }