view release on metacpan or  search on metacpan

lib/App/SpreadRevolutionaryDate/MsgMaker/Telechat.pm  view on Meta::CPAN

#
# This file is part of App-SpreadRevolutionaryDate
#
# This software is Copyright (c) 2019-2026 by Gérald Sédrati.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#
use 5.014;
use utf8;
package App::SpreadRevolutionaryDate::MsgMaker::Telechat;
$App::SpreadRevolutionaryDate::MsgMaker::Telechat::VERSION = '0.54';
# ABSTRACT: MsgMaker class for L<App::SpreadRevolutionaryDate> to build message with Téléchat date

use Moose;
with 'App::SpreadRevolutionaryDate::MsgMaker';

use DateTime;
use File::ShareDir ':ALL';
use App::SpreadRevolutionaryDate;

use Locale::TextDomain 'App-SpreadRevolutionaryDate';
use namespace::autoclean;

has '+locale' => (
  default => 'fr',
);

around BUILDARGS => sub {
  my ($orig, $class, %args) = @_;

  $args{locale} = 'fr';
  return $class->$orig(%args);
};


sub compute {
  my $self = shift;

  my %telechat_calendars = (
    '0tvtime' => {
      '0101' => ['flaque d\'eau', 'flaques d\'eau', 'f'],
      '0102' => ['cadre', 'cadres', 'm'],
      '0103' => ['compte-gouttes', 'compte-gouttes', 'm'],
      '0104' => ['laisse de chien', 'laisses de chien', 'f'],
      '0105' => ['bocal', 'bocaux', 'm'],
      '0106' => ['gibier', 'gibiers', 'm'],
      '0107' => ['pare-chocs', 'pare-chocs', 'f'],
      '0108' => ['tranche de jambon', 'tranches de jambon', 'f'],
      '0109' => ['patate', 'patates', 'f'],
      '0110' => ['appareil de photo', 'appareils de photo', 'm'],
      '0111' => ['raisin sec', 'raisins secs', 'm'],
      '0112' => ['trognon de pomme', 'trognons de pomme', 'm'],
      '0113' => ['fil à couper le beurre', 'fils à couper le beurre', 'm'],
      '0114' => ['casse-noisettes', 'casse-noisettes', 'm'],
      '0115' => ['machine à faire des trous dans les spaguettis', 'machines à faire des trous dans les spaguettis', 'm'],
      '0116' => ['cure-dents', 'cure-dents', 'm'],
      '0117' => ['stylo-feutre', 'stylos-feutres', 'm'],
      '0118' => ['parcmètre', 'parcmètres', 'm'],
      '0119' => ['journal', 'journaux', 'm'],
      '0120' => ['toast', 'toasts', 'm'],
      '0121' => ['colis', 'colis', 'm'],
      '0122' => ['sèche-cheveux', 'sèche-cheveux', 'm'],
      '0123' => ['papier carbone', 'papiers carbone', 'm'],
      '0124' => ['savonnette', 'savonnettes', 'f'],
      '0125' => ['épluchure', 'épluchures', 'f'],
      '0126' => ['cactus', 'cactus', 'm'],
      '0127' => ['sac de dame', 'sacs de dame', 'm'],
      '0128' => ['jus de fruits', 'jus de fruits', 'm'],
      '0129' => ['mot d\'excuse', 'mots d\'excuse', 'm'],
      '0130' => ['sent-bon', 'sent-bon', 'm'],
      '0131' => ['machine à coudre', 'machines à coudre', 'f'],
      '0201' => ['pique-nique', 'pique-niques', 'm'],
      '0202' => ['bonbon à la menthe', 'bonbons à la menthe', 'm'],
      '0203' => ['sabre', 'sabres', 'm'],
      '0204' => ['uniforme', 'uniformes', 'm'],
      '0205' => ['bulle de savon', 'bulles de savon', 'f'],
      '0207' => ['pince à linge', 'pinces à linge', 'f'],
      '0208' => ['peau de banane', 'peaux de banane', 'f'],
      '0209' => ['marguerite', 'marguerites', 'f'],
      '0210' => ['avion en papier', 'avions en papier', 'm'],
      '0211' => ['brosse à cheveux', 'brosses à cheveux', 'f'],
      '0212' => ['équilibre', 'équilibres', 'm'],