my $categorizer = Algorithm::NaiveBayes->new;

$categorizer->add_instance(
	attributes => $positive,
	label => 'positive');

$categorizer->add_instance(
	attributes => $negative,
	label => 'negative');

$categorizer->train;