view release on metacpan or  search on metacpan

lib/Bio/MedChunker.pm  view on Meta::CPAN

use strict;
use YamCha;

use Bio::Medpost;
use Exporter::Lite;

our @EXPORT = qw(medchunker);
our $YamChaModel = '';

sub extract_NPchunks($) {
    my $l = shift;
    my @buf;
    my @np;
    while(my $a = shift @$l){
	if( ($a->[2] eq 'O' && @buf) || ($a->[2] eq 'I' && !@$l && @buf)) {
	    push @buf, $a if $a->[2] eq 'I';
	    push @np, [@buf];
	    @buf = ();
	}
	elsif( $a->[2] eq 'B' && @buf ){