view release on metacpan or  search on metacpan

lib/Algorithm/Classifier/NaiveBayes/App/Command/train.pm  view on Meta::CPAN

		if ( !-f $opt->{'f'} ) {
			$self->usage_error( '-f, "' . $opt->{'f'} . '", is not a file or does not exist' );
		} elsif ( !-r $opt->{'f'} ) {
			$self->usage_error( '-f, "' . $opt->{'f'} . '", is not readable' );
		}
	} ## end if ( defined( $opt->{'f'} ) )

	if ( -f $opt->{'m'} ) {
		foreach my $new_arg ( @new_args, 'no_lc' ) {
			if ( defined( $opt->{$new_arg} ) ) {
				my $flag = $new_arg;
				$flag =~ s/_/-/g;
				$self->usage_error( '--' . $flag . ' may only be used when creating a new model file' );
			}
		}
	}

	return 1;
} ## end sub validate

sub execute {
	my ( $self, $opt, $args ) = @_;