From 414faa4b8261634555fb68e4df092f07189cc8ab Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Tue, 3 Oct 2023 14:43:47 -0700 Subject: [PATCH] remove unused code --- lib/Perl/Tidy.pm | 4 ---- lib/Perl/Tidy/Formatter.pm | 4 ---- lib/Perl/Tidy/VerticalAligner.pm | 4 ---- 3 files changed, 12 deletions(-) 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) { -- 2.39.5