Select Code to Download

package Security::Monitoring::Detection::Markov;

use 5.006;
...
}

1; # End of Markov

#!perl -T
use 5.006;
use strict;
...
is(${$newtomaton->get_false_positives}[0],$word,"get_false_positive wo
+rks");
is($newtomaton->get_score($word),$newtomaton->{mean_score},"false posi
+tive
evaluation returns correct value");