Browse files

v0.09

  • Loading branch information...
1 parent a811167 commit b11bdbbadc2bf19b608908c0528d642659c20284 @ambs committed Sep 7, 2014
Showing with 118 additions and 3 deletions.
  1. +4 −1 Changes
  2. +1 −0 MANIFEST
  3. +111 −0 bin/identify-cld
  4. +2 −2 lib/Lingua/Identify/CLD.pm
View
5 Changes
@@ -1,7 +1,10 @@
Revision history for Lingua-Identify-CLD
+0.09 Sun Sep 7 21:39:42 WEST 2014
+ - Added identify-cld binary
+
0.08 Fri Mar 28 17:06:17 WET 2014
- - Fix issue when compiling with Clang (Thanks to Linas Valiukas)
+ - Fix issue when compiling with Clang (Thanks to Linas Valiukas)
0.07 Fri Jun 14 21:20:21 WEST 2013
- Get rid of standalone library, prepare just the Perl library
View
1 MANIFEST
@@ -112,3 +112,4 @@ t/pod-coverage.t
t/pod.t
typemap
META.json
+bin/identify-cld
View
111 bin/identify-cld
@@ -0,0 +1,111 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Lingua::Identify::CLD;
+
+my $cld = Lingua::Identify::CLD->new();
+
+if (@ARGV) {
+ for my $file (@ARGV) {
+ next unless -f $file;
+
+ local $/ = undef;
+ open my $fh, "<:utf8", $file or die "Couldn't read $file: $!";
+ my $string = <$fh>;
+ close $fh;
+ my $lang = $cld->identify($string);
+ print "$file: $lang\n";
+ }
+} else {
+ local $/ = undef;
+ binmode STDIN, ":utf8";
+ my $string = <STDIN>;
+ my $lang = $cld->identify($string);
+ print "STDIN: $lang\n";
+}
+
+=encoding utf8
+
+=head1 NAME
+
+identify-cld - Uses Lingua::Identify::CLD to identify the language of a text.
+
+=head1 SYNOPSYS
+
+ $ identify-cld file1 file2 file3
+ file1: ENGLISH
+ file2: FRECH
+ file3: HINDI
+
+ $ cat file1 | identify-cld
+ STDIN: ENGLISH
+
+=head1 DESCRIPTION
+
+A simple frontend to the identify function of C<Lingua::Identify::CLD>.
+
+=head1 AUTHOR
+
+Alberto Simoes, C<< <ambs at cpan.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+L<http://github.com/ambs/Lingua-Identify-CLD>. I will be notified,
+and then you'll automatically be notified of progress on your bug as I
+make changes.
+
+=head1 ACKNOWLEDGEMENTS
+
+B<IN MEMORIAM OF JEAN VÉRONIS.>
+
+
+Chrome team for making the code available.
+
+Jean Véronis for pushing me to do this.
+
+SocialFlow L<http://www.socialflow.com> for simplifiying the
+build/install process.
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2011-2013 Alberto Simoes.
+
+This program is distributed under the (Revised) BSD License:
+L<http://www.opensource.org/licenses/bsd-license.php>
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+* Redistributions of source code must retain the above copyright
+notice, this list of conditions and the following disclaimer.
+
+* Redistributions in binary form must reproduce the above copyright
+notice, this list of conditions and the following disclaimer in the
+documentation and/or other materials provided with the distribution.
+
+* Neither the name of Alberto Simoes's Organization
+nor the names of its contributors may be used to endorse or promote
+products derived from this software without specific prior written
+permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+
+=cut
+
+1; # End of Lingua::Identify::CLD
+
View
4 lib/Lingua/Identify/CLD.pm
@@ -12,11 +12,11 @@ Lingua::Identify::CLD - Interface to Chrome language detection library.
=head1 VERSION
-Version 0.08
+Version 0.09
=cut
-our $VERSION = '0.08';
+our $VERSION = '0.09';
use XSLoader;
BEGIN {

0 comments on commit b11bdbb

Please sign in to comment.