view release on metacpan or  search on metacpan

lib/App/Presto/ShellUI.pm  view on Meta::CPAN

sub call_command {
	my $self = shift;
	my($cmd) = @_;
	my $args = $cmd->{args};
	eval {
		$self->arg_processor->process($args);
		1;
	} or do {
		warn "Error preparsing args @$args: $@";
	};
	return $self->SUPER::call_command(@_);
}

sub ornaments {
	shift->{term}->ornaments(@_);
}

1;

__END__