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 /lib/Reply/Plugin/ReadLine.pm | |
| parent | 59a6f171fa2a70d5210acec086010f292ee4c592 (diff) | |
| download | reply-8ab4042025315011ba48c3465a860eca2340e1b0.tar.gz reply-8ab4042025315011ba48c3465a860eca2340e1b0.zip | |
remove submethods
Diffstat (limited to 'lib/Reply/Plugin/ReadLine.pm')
| -rw-r--r-- | lib/Reply/Plugin/ReadLine.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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) |