File Coverage

blib/lib/Lingua/FR/Ladl/Parametrizer.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Lingua::FR::Ladl::Parametrizer;

use warnings;
use strict;
use Carp;
use utf8;

use version; our $VERSION = qv('0.0.1');

use Class::Std;

{
  my %empty_string_mark_of   : ATTR( :default('') :name    ); # null value for string type columns
  my %negation_particles_of  : ATTR(                 :name   ); # what's a negation
  my %verbal_arguments_of    : ATTR(                 :name     ); # which are verbal arguments (head) or whatever
  my %associate_for_particle : ATTR(                 :name associate
  my %associate_for_verb     : ATTR(                 :name associate

  sub BUILD {
    my ($self, $id, $arg_ref) = @_;

    $negation_particles_of{$id} = {
                                   "Nég" => 1,
                                   pas => 1,
                                  };
    $verbal_arguments_of{$id} = {
                                 v => 1,
                                 adj =>1,
                                };
    $associate_for_particle{$id} = {
                                    "l'" => 'l',
                                    'la' => 'la',
                                    'les' => 'les',
                                    'le' => 'cla',
                                    'en' => 'clg',
                                    'y' => 'cll',
                                    "s'" => 'clr',
                                    'se' => 'clr',
                                    "n'" => 'neg',
                                    "ne" => 'neg',
                                   };
    $associate_for_verb{$id} = {
                                advm => 'advm',
                                adv => 'adv',
                                advt => 'advt',
                                adj => 'adj',
                                'poss n' => 'poss_n',
                                advfut => 'advfut',
                                advp => 'advp',
                                'nég' => 'neg',
                                'pas' => 'neg',
                               }

  }

}

1; # Magic true value required at end of module
__END__