File Coverage

blib/lib/DateTime/Calendar/FrenchRevolutionary/Locale.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             # -*- encoding: utf-8; indent-tabs-mode: nil -*-
2             #
3             # Perl DateTime extension for providing localised strings for the French Revolutionary calendar
4             # Copyright (c) 2003, 2004, 2010, 2011, 2014, 2016, 2019, 2021 Jean Forget. All rights reserved.
5             #
6             # See the license in the embedded documentation below.
7             #
8              
9             package DateTime::Calendar::FrenchRevolutionary::Locale;
10              
11 17     17   153 use utf8;
  17         47  
  17         153  
12 17     17   736 use strict;
  17         46  
  17         422  
13 17     17   100 use warnings;
  17         40  
  17         726  
14              
15 17     17   121 use vars qw($VERSION);
  17         38  
  17         2686  
16             $VERSION = '0.17'; # same as parent module DT::C::FR
17              
18             sub load {
19 1393     1393 1 3398 my ($self, $lang) = @_;
20 1393         3427 my $real_class = "DateTime::Calendar::FrenchRevolutionary::Locale::$lang";
21 1393         82868 eval "require $real_class";
22 1393 100       5950 die $@ if $@;
23 1392         5537 return $real_class->new();
24             }
25             # A module must return a true value. Traditionally, a module returns 1.
26             # But this module is a revolutionary one, so it discards all old traditions.
27             "Amour sacré de la patrie, conduis soutiens nos bras vengeurs.";
28              
29             __END__
30              
31             =encoding utf8
32              
33             =head1 NAME
34              
35             DateTime::Calendar::FrenchRevolutionary::Locale - Dates in the French Revolutionary Calendar
36              
37             =head1 DESCRIPTION
38              
39             Please refer to parent module:
40              
41             perldoc DateTime::Calendar::FrenchRevolutionary
42              
43             =head1 METHOD
44              
45             =head2 C<load>
46              
47             Used internally by C<DateTime::Calendar::FrenchRevolutionary>.
48              
49             =head1 SUPPORT
50              
51             Support for this module is provided via the datetime@perl.org email
52             list. See L<https://lists.perl.org/> for more details.
53              
54             Please report any bugs or feature requests to Github at
55             L<https://github.com/jforget/DateTime-Calendar-FrenchRevolutionary>,
56             and create an issue or submit a pull request.
57              
58             If you have no feedback after a week or so, try to reach me by email
59             at JFORGET at cpan dot org. The notification from Github may have
60             failed to reach me. In your message, please mention the distribution
61             name in the subject, so my spam filter and I will easily dispatch the
62             email to the proper folder.
63              
64             On the other hand, I may be on vacation or away from Internet for a
65             good reason. Do not be upset if I do not answer immediately. You
66             should write me at a leisurely rythm, about once per month, until I
67             react.
68              
69             If after about six months or a year, there is still no reaction from
70             me, you can worry and start the CPAN procedure for module adoption.
71             See L<https://groups.google.com/g/perl.module-authors/c/IPWjASwuLNs>
72             L<https://www.cpan.org/misc/cpan-faq.html#How_maintain_module>
73             and L<https://www.cpan.org/misc/cpan-faq.html#How_adopt_module>.
74              
75             =head1 AUTHOR
76              
77             Jean Forget <JFORGET@cpan.org>
78              
79             =head1 LICENSE STUFF
80              
81             Copyright (c) 2003, 2004, 2010, 2012, 2014, 2016, 2019, 2021 Jean
82             Forget. All rights reserved. This program is free software. You can
83             distribute, adapt, modify, and otherwise mangle
84             DateTime::Calendar::FrenchRevolutionary under the same terms as perl
85             5.16.3.
86              
87             This program is distributed under the same terms as Perl 5.16.3: GNU
88             Public License version 1 or later and Perl Artistic License
89              
90             You can find the text of the licenses in the F<LICENSE> file or at
91             L<https://dev.perl.org/licenses/artistic.html> and
92             L<https://www.gnu.org/licenses/old-licenses/gpl-1.0.html>.
93              
94             Here is the summary of GPL:
95              
96             This program is free software; you can redistribute it and/or modify
97             it under the terms of the GNU General Public License as published by
98             the Free Software Foundation; either version 1, or (at your option)
99             any later version.
100              
101             This program is distributed in the hope that it will be useful, but
102             WITHOUT ANY WARRANTY; without even the implied warranty of
103             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
104             General Public License for more details.
105              
106             You should have received a copy of the GNU General Public License
107             along with this program; if not, see L<https://www.gnu.org/licenses/>
108             or contact the Free Software Foundation, Inc., L<https://www.fsf.org>.
109              
110             =cut