File Coverage

blib/lib/Algorithm/Classifier/NaiveBayes/App/Command.pm

Criterion	Covered	Total	%
statement	21	28	75.0
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	32	42	76.1

package Algorithm::Classifier::NaiveBayes::App::Command;

use 5.006;
use strict;
use warnings;
use App::Cmd::Setup -command;

=head1 NAME

Algorithm::Classifier::NaiveBayes::App::Command - The base class for nb_tool commands.

=cut

sub opt_spec {
	my ( $class, $app ) = @_;
	return ( [ 'help|h' => 'This usage screen.' ], $class->options($app), );
}

sub validate_args {
	my ( $self, $opt, $args ) = @_;
	if ( $opt->{'help'} ) {
		my ($command) = $self->command_names;
		$self->app->execute_command( $self->app->prepare_command( 'help', $command ) );
		exit;
	}
	$self->validate( $opt, $args );
}

# returns the text to work on, either the remaining args joined by a
# space or stdin slurped
sub text_from {
	my ( $self, $args ) = @_;

	if ( @{$args} ) {
		return join( ' ', @{$args} );
	}

	my $text = do { local $/;  };
	return $text;
} ## end sub text_from

1;