view release on metacpan or  search on metacpan

lib/App/Chit.pm  view on Meta::CPAN

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.001001';

sub default_command {
	return "chat";
}

sub run ( $self, @args ) {
	$self->usage_error( "Set the @{[ App::Chit::Util::CHIT_KEY_VAR() ]} environment variable" )
		unless $ENV{App::Chit::Util::CHIT_KEY_VAR()};
	$self->SUPER::run( @args );
}

sub _prepare_command ( $self, $command, $opt, @args ) {
	if ( my $plugin = $self->plugin_for( $command ) ) {
		return $plugin->prepare( $self, @args );
	}
	elsif ( length $command and App::Chit::Util::find_chit_dir() ) {
		my $plugin = $self->plugin_for( $self->default_command );
		return $plugin->prepare( $self, $command, @args );
	}