From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 7 Sep 2020 00:59:12 +0000 (-0700)
Subject: add AUTOLOAD subs to better catch programming errors
X-Git-Tag: 20200907.01~51
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7e4a3a971b0f288e27d7d6541547d010ae74f3c3;p=perltidy.git

add AUTOLOAD subs to better catch programming errors
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a7a71819..7db691aa 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -113,6 +113,25 @@ BEGIN {
     $VERSION = '20200907';
 }
 
+sub AUTOLOAD {
+
+    # Catch any undefined sub calls so that we are sure to get
+    # some diagnostic information.  This sub should never be called
+    # except for a programming error.
+    our $AUTOLOAD;
+    my ( $pkg, $fname, $lno ) = caller();
+    print STDERR <<EOM;
+======================================================================
+Unexpected call to Autoload looking for sub $AUTOLOAD
+Called from package: '$pkg'  
+Called from File '$fname'  at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+    Die(
+        "Error exit due to unexpected Autoload call to '$AUTOLOAD'\n");
+}
+
 sub streamhandle {
 
     # given filename and mode (r or w), create an object which:
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 2fff8663..a9037041 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -35,6 +35,24 @@ sub Exit {
     croak "unexpected return from Perl::Tidy::Exit";
 }
 
+sub AUTOLOAD {
+
+    # Catch any undefined sub calls so that we are sure to get
+    # some diagnostic information.  This sub should never be called
+    # except for a programming error.
+    our $AUTOLOAD;
+    my ( $pkg, $fname, $lno ) = caller();
+    print STDERR <<EOM;
+======================================================================
+Unexpected call to Autoload looking for sub $AUTOLOAD
+Called from package: '$pkg'  
+Called from File '$fname'  at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+    Die("Error exit due to unexpected Autoload call to '$AUTOLOAD'\n");
+}
+
 BEGIN {
 
     # Codes for insertion and deletion of blanks
diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 52665f2a..c175f7e0 100644
--- a/lib/Perl/Tidy/HtmlWriter.pm
+++ b/lib/Perl/Tidy/HtmlWriter.pm
@@ -38,6 +38,25 @@ BEGIN {
     }
 }
 
+sub AUTOLOAD {
+
+    # Catch any undefined sub calls so that we are sure to get
+    # some diagnostic information.  This sub should never be called
+    # except for a programming error.
+    our $AUTOLOAD;
+    my ( $pkg, $fname, $lno ) = caller();
+    print STDERR <<EOM;
+======================================================================
+Unexpected call to Autoload looking for sub $AUTOLOAD
+Called from package: '$pkg'  
+Called from File '$fname'  at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+    Perl::Tidy::Die(
+        "Error exit due to unexpected Autoload call to '$AUTOLOAD'\n");
+}
+
 sub new {
 
     my ( $class, @args ) = @_;
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 1089587e..0d803e67 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -203,6 +203,25 @@ sub DESTROY {
     return;
 }
 
+sub AUTOLOAD {
+
+    # Catch any undefined sub calls so that we are sure to get
+    # some diagnostic information.  This sub should never be called
+    # except for a programming error.
+    our $AUTOLOAD;
+    my ( $pkg, $fname, $lno ) = caller();
+    print STDERR <<EOM;
+======================================================================
+Unexpected call to Autoload looking for sub $AUTOLOAD
+Called from package: '$pkg'  
+Called from File '$fname'  at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+    Perl::Tidy::Die(
+        "Error exit due to unexpected Autoload call to '$AUTOLOAD'\n");
+}
+
 sub check_options {
 
     # Check Tokenizer parameters
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 36f57463..77d63abb 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -29,6 +29,25 @@ use Perl::Tidy::VerticalAligner::Line;
 # It is essential that a final call to flush() be made. Otherwise some
 # final lines of text will be lost.
 
+sub AUTOLOAD {
+
+    # Catch any undefined sub calls so that we are sure to get
+    # some diagnostic information.  This sub should never be called
+    # except for a programming error.
+    our $AUTOLOAD;
+    my ( $pkg, $fname, $lno ) = caller();
+    print STDERR <<EOM;
+======================================================================
+Unexpected call to Autoload looking for sub $AUTOLOAD
+Called from package: '$pkg'  
+Called from File '$fname'  at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+    Perl::Tidy::Die(
+        "Error exit due to unexpected Autoload call to '$AUTOLOAD'\n");
+}
+
 BEGIN {
 
     # Define the fixed indexes for variables in $self, which is an array