File Coverage

blib/lib/App/Chit.pm

Criterion	Covered	Total	%
statement	20	39	51.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	2	2	100.0
total	29	60	48.3

use v5.20;
use strict;
use warnings;
use experimental qw( signatures lexical_subs postderef );
use utf8::all;

package App::Chit;

use App::Cmd::Setup -app;
use App::Chit::Util ();

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 );
	}
	else {
		return $self->_bad_command( $command, $opt, @args );
	}
}

1;

__END__