summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-10-07 11:00:19 -0400
committerJesse Luehrs <doy@tozt.net>2013-10-07 11:00:19 -0400
commit8ab4042025315011ba48c3465a860eca2340e1b0 (patch)
treea1bd92779a1012668aa7dba9087bb7652cae26f6
parent59a6f171fa2a70d5210acec086010f292ee4c592 (diff)
downloadreply-8ab4042025315011ba48c3465a860eca2340e1b0.tar.gz
reply-8ab4042025315011ba48c3465a860eca2340e1b0.zip
remove submethods
-rw-r--r--lib/Reply.pm2
-rw-r--r--lib/Reply/Config.pm2
-rw-r--r--lib/Reply/Plugin/AutoRefresh.pm2
-rw-r--r--lib/Reply/Plugin/DataDump.pm2
-rw-r--r--lib/Reply/Plugin/DataDumper.pm2
-rw-r--r--lib/Reply/Plugin/Editor.pm2
-rw-r--r--lib/Reply/Plugin/Packages.pm2
-rw-r--r--lib/Reply/Plugin/ReadLine.pm4
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)