our $pipeline;
sub pipeline {
    $pipeline ||= new Lingua::StanfordCoreNLP::Pipeline(1, 1);
    $pipeline;
}
sub process_text {
  my ($self,$text) = @_;
  $self->pipeline->process( $text );
}