File Coverage

blib/lib/Lingua/Boolean/French.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Lingua::Boolean::French;
2             # ABSTRACT: DEPRECATED - provides French rules to Lingua::Boolean
3 6     6   4739 use strict;
  6         36  
  6         236  
4 6     6   35 use warnings;
  6         12  
  6         961  
5 6     6   39 use utf8;
  6         11  
  6         142  
6             our $VERSION = '0.008'; # VERSION
7              
8              
9              
10             sub new {
11 85     85 1 151 my $class = shift;
12              
13 85         129 my $LANG = 'fr';
14 85         115 my $LANGUAGE = 'Français';
15              
16 85         103 my $match;
17 85         881 $match->{True} = [qr{^oui$}i, qr{^ok$}i, qr{^vraie?$}i, qr{^[1-9]$}];
18 85         535 $match->{False} = [qr{^n(?:on?)?$}i, qr{^faux$}i, qr{^0$}];
19              
20 85         321 my $self = {
21             LANG => $LANG,
22             LANGUAGE => $LANGUAGE,
23             match => $match,
24             };
25 85         214 bless $self, $class;
26 85         4607 return $self;
27             }
28              
29              
30             1;
31              
32             __END__