# 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 975 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/set.al)" sub set { my ($self, $string) = @_; $string =~ s/^\-o\s+|(\+o\s+|no(?=\w))//; my $switch_off = $1; $string =~ s/^(\w+)(=|\s*$)// or return $self->bell; my ($opt, $val) = ($1, ($2 eq '=') ? $string : 1); $val =~ s/^['"]|["']$//g; if ($switch_off) { delete $$self{config}{$opt} } else { $$self{config}{$opt} = $val } return 1; } # end of Term::ReadLine::Zoid::ViCommand::set 1;