# 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 225 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/_get_chr.al)"
## Two helper subs ##

sub _get_chr { # get extra argument
	my $self = shift;
	my $chr =  $self->key_name( $self->read_key );
	return $self->vi_reset if $chr eq 'escape';
	return undef if length $chr > 1;
	#print STDERR "got argument chr: $chr\n";
	$$self{vi_command} .= $chr;
	return $chr;
}

# end of Term::ReadLine::Zoid::ViCommand::_get_chr
1;
