From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 3 Oct 2023 21:43:47 +0000 (-0700)
Subject: remove unused code
X-Git-Tag: 20230912.03~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=414faa4b8261634555fb68e4df092f07189cc8ab;p=perltidy.git

remove unused code
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 0cc3f3de..3c397b8b 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -639,10 +639,6 @@ EOM
     %input_hash = ( %defaults, %input_hash );
     my $argv               = $input_hash{'argv'};
     my $destination_stream = $input_hash{'destination'};
-    my $errorfile_stream   = $input_hash{'errorfile'};
-    my $logfile_stream     = $input_hash{'logfile'};
-    my $teefile_stream     = $input_hash{'teefile'};
-    my $debugfile_stream   = $input_hash{'debugfile'};
     my $perltidyrc_stream  = $input_hash{'perltidyrc'};
     my $source_stream      = $input_hash{'source'};
     my $stderr_stream      = $input_hash{'stderr'};
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 6b89b4df..3eac54e5 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -1265,10 +1265,6 @@ sub check_token_array {
         return;
     }
 
-    sub get_logger_object {
-        return $logger_object;
-    }
-
     sub get_input_stream_name {
         my $input_stream_name = EMPTY_STRING;
         if ($logger_object) {
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 4227992d..f70dd625 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -438,10 +438,6 @@ sub write_diagnostics {
         return;
     }
 
-    sub get_logger_object {
-        return $logger_object;
-    }
-
     sub get_input_stream_name {
         my $input_stream_name = EMPTY_STRING;
         if ($logger_object) {