#!/usr/bin/perl -s

our($t,$v);

use common::sense;
use Lingua::Identify::CLD;

my $cld = Lingua::Identify::CLD->new( ($t?(tld=>$t):()),sPlainText=> 0 );

# $lang[0] -> language name
# $lang[1] -> language id
# $lang[2] -> confidence
# $lang[3] -> is_reliable (bool)

undef $/;
for my $f (@ARGV){
    open(my $fd , "-|", "jop '$f'") or die("cant open $f");
    my @lang = $cld->identify(<$fd>);
    if($v){ print "$f: $lang[0]\n"; }
    else  { print "$f: $lang[1]\n"; }
    close ($fd);
}


__END__

=encoding utf8

=head1 NAME

lang_cld_ident - identify languague with Chrome language library

=head1 SYNOPSIS

  lang_cld_ident [options] file*
     options 
        -v         expand language name
        -t=lang    give a hint...

=head1 DESCRIPTION

=head2 EXPORT

=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

perl(1).

=cut