# NOTE: Derived from lib/Term/ReadLine/Zoid/ViCommand.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Term::ReadLine::Zoid::ViCommand; #line 1115 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/alias.al)" sub alias { my ($self, $string) = @_; return $self->bell unless $string =~ /^(\w)=(.*)/; $$self{config}{aliases}{"_$1"} = $self->_parse_chrs($2); return 1; } # end of Term::ReadLine::Zoid::ViCommand::alias 1;