remove unused code

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 0cc3f3de47bdbb43e0bce22d01ea86895786c26b..3c397b8baea53ee522bfa112cce87ea5cb8a8bd4 100644 (file)
--- 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 6b89b4dfe868cf1ed10a0581a642e9bc544e7e1f..3eac54e5e1066d69a88aea39e330e3d7e60e162c 100644 (file)
--- 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 4227992d26c30ed40c78f654fe8a2a7ecccf3b6b..f70dd625eb8f0f62b37c046c709ab43d262a1c91 100644 (file)
--- 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) {