diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-10-07 11:00:19 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-10-07 11:00:19 -0400 |
commit | 8ab4042025315011ba48c3465a860eca2340e1b0 (patch) | |
tree | a1bd92779a1012668aa7dba9087bb7652cae26f6 | |
parent | 59a6f171fa2a70d5210acec086010f292ee4c592 (diff) | |
download | reply-8ab4042025315011ba48c3465a860eca2340e1b0.tar.gz reply-8ab4042025315011ba48c3465a860eca2340e1b0.zip |
remove submethods
-rw-r--r-- | lib/Reply.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Config.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/AutoRefresh.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/DataDump.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/DataDumper.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/Editor.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/Packages.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/ReadLine.pm | 4 |
8 files changed, 9 insertions, 9 deletions
diff --git a/lib/Reply.pm b/lib/Reply.pm index 6c4bd8f..5025d36 100644 --- a/lib/Reply.pm +++ b/lib/Reply.pm @@ -83,7 +83,7 @@ class Reply { has $!plugins = []; has $!_default_plugin = $_->_instantiate_plugin('Defaults'); - submethod BUILD ($opts) { + method BUILD ($opts) { if (defined $opts->{config}) { if (!ref($opts->{config})) { $opts->{config} = Reply::Config->new(file => $opts->{config}); diff --git a/lib/Reply/Config.pm b/lib/Reply/Config.pm index bc84b02..17a8dd5 100644 --- a/lib/Reply/Config.pm +++ b/lib/Reply/Config.pm @@ -43,7 +43,7 @@ class Reply::Config { has $!file = $_->_canonicalize_file('.replyrc'); has $!config = Config::INI::Reader::Ordered->new; - submethod BUILD ($args) { + method BUILD ($args) { if (defined $args->{file}) { $!file = $self->_canonicalize_file($args->{file}); } diff --git a/lib/Reply/Plugin/AutoRefresh.pm b/lib/Reply/Plugin/AutoRefresh.pm index f830997..3227fa4 100644 --- a/lib/Reply/Plugin/AutoRefresh.pm +++ b/lib/Reply/Plugin/AutoRefresh.pm @@ -32,7 +32,7 @@ modules correctly see the global override. class Reply::Plugin::AutoRefresh extends Reply::Plugin { has $!track_require = 1; - submethod BUILD { + method BUILD { Class::Refresh->import(track_require => $!track_require); # so that when we load things after this plugin, they get a copy of diff --git a/lib/Reply/Plugin/DataDump.pm b/lib/Reply/Plugin/DataDump.pm index d527925..b2b5dc5 100644 --- a/lib/Reply/Plugin/DataDump.pm +++ b/lib/Reply/Plugin/DataDump.pm @@ -35,7 +35,7 @@ class Reply::Plugin::DataDump extends Reply::Plugin { }; }; - submethod BUILD { + method BUILD { undef $!filter unless $!respect_stringification; } diff --git a/lib/Reply/Plugin/DataDumper.pm b/lib/Reply/Plugin/DataDumper.pm index ad8d68e..7155d66 100644 --- a/lib/Reply/Plugin/DataDumper.pm +++ b/lib/Reply/Plugin/DataDumper.pm @@ -19,7 +19,7 @@ This plugin uses L<Data::Dumper> to format results. =cut class Reply::Plugin::DataDumper extends Reply::Plugin { - submethod BUILD { + method BUILD { $Data::Dumper::Terse = 1; $Data::Dumper::Sortkeys = 1; } diff --git a/lib/Reply/Plugin/Editor.pm b/lib/Reply/Plugin/Editor.pm index b0f9415..8615ffa 100644 --- a/lib/Reply/Plugin/Editor.pm +++ b/lib/Reply/Plugin/Editor.pm @@ -32,7 +32,7 @@ class Reply::Plugin::Editor extends Reply::Plugin { has $!editor; has $!current_text = ''; - submethod BUILD ($opts) { + method BUILD ($opts) { $!editor = Proc::InvokeEditor->new( (defined $opts->{editor} ? (editors => [ $opts->{editor} ]) diff --git a/lib/Reply/Plugin/Packages.pm b/lib/Reply/Plugin/Packages.pm index eccafa7..f876642 100644 --- a/lib/Reply/Plugin/Packages.pm +++ b/lib/Reply/Plugin/Packages.pm @@ -23,7 +23,7 @@ initial package to use when Reply starts up. class Reply::Plugin::Packages extends Reply::Plugin { has $!package = 'main'; - submethod BUILD ($args) { + method BUILD ($args) { $!package = $args->{default_package} if defined $args->{default_package}; } diff --git a/lib/Reply/Plugin/ReadLine.pm b/lib/Reply/Plugin/ReadLine.pm index 96531da..71c1f08 100644 --- a/lib/Reply/Plugin/ReadLine.pm +++ b/lib/Reply/Plugin/ReadLine.pm @@ -44,7 +44,7 @@ class Reply::Plugin::ReadLine extends Reply::Plugin { has $!rl_perl5; has $!rl_caroline; - submethod BUILD ($opts) { + method BUILD ($opts) { $!rl_gnu = $!term->ReadLine eq 'Term::ReadLine::Gnu'; $!rl_perl5 = $!term->ReadLine eq 'Term::ReadLine::Perl5'; $!rl_caroline = $!term->ReadLine eq 'Term::ReadLine::Caroline'; @@ -85,7 +85,7 @@ class Reply::Plugin::ReadLine extends Reply::Plugin { $!term->readline($prompt); } - submethod DEMOLISH { + method DEMOLISH { return if $!history_length == 0; return unless $!rl_gnu || $!rl_perl5; $!term->WriteHistory($!history_file) |