rename sub initialize to be sub new

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 2b055b845a39db3ecd584c02dd34664f19ab8a35..0d4a198ab4b26ec720fe2e771c2599b6ee86ec68 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -700,7 +700,7 @@ sub new {
 
     prepare_for_new_input_lines();
 
-    my $vertical_aligner_object = Perl::Tidy::VerticalAligner->initialize(
+    my $vertical_aligner_object = Perl::Tidy::VerticalAligner->new(
         rOpts              => $rOpts,
         file_writer_object => $file_writer_object,
         logger_object      => $logger_object,

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 43b2bf8be176f542f1c0ad7b56080b361d207a53..f75d4423e2fbb419264575965b3bf3ce136b64b8 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -83,7 +83,7 @@ BEGIN {
     };
 }
 
-sub initialize {
+sub new {
 
     my ( $class, @args ) = @_;