File Coverage

blib/lib/UMLS/Norm.pm

Criterion	Covered	Total	%
statement	7	19	36.8
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	10	32	31.2

package UMLS::Norm;

use strict;
use warnings;

our $VERSION = '0.01';

our @EXPORT = qw(
		 start_norm
		 normalize
		);


our $PATH;
$PATH = '/home/software/LuiNorm';
our ($I_NORM, $O_NORM);

sub start_norm {
    chdir( $_[0] || $PATH || die "Please specify the path of LUINORM program") or die $!;
    my $pid = open2($I_NORM, $O_NORM, './luiNorm');
}

END {
    close $I_NORM;
    close $O_NORM;
}

sub tag {
    my $text = shift or die "Please input text";
    print {$O_NORM} $text."\n";
    local $_;
    my $result;
    while($_ = <$I_NORM>){
	$result .= $_;
	last;
    }
    return $result;
}


1;
__END__