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 0 1 0.0
total 24 25 96.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 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   93 use utf8;
  17         26  
  17         164  
12 17     17   576 use strict;
  17         27  
  17         545  
13 17     17   78 use warnings;
  17         24  
  17         650  
14              
15 17     17   72 use vars qw($VERSION);
  17         21  
  17         2482  
16             $VERSION = '0.14'; # same as parent module DT::C::FR
17              
18             sub load {
19 1359     1359 0 1897 my ($self, $lang) = @_;
20 1359         2091 my $real_class = "DateTime::Calendar::FrenchRevolutionary::Locale::$lang";
21 1359         85065 eval "require $real_class";
22 1359 100       4748 die $@ if $@;
23 1358         5115 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 SUPPORT
44              
45             Support for this module is provided via the datetime@perl.org email
46             list. See L<http://lists.perl.org/> for more details.
47              
48             Please enter bug reports at L<http://rt.cpan.org/>
49              
50             =head1 AUTHOR
51              
52             Jean Forget <JFORGET@cpan.org>
53              
54             =head1 LICENSE STUFF
55              
56             Copyright (c) 2003, 2004, 2010, 2012, 2014, 2016 Jean Forget. All
57             rights reserved. This program is free software. You can distribute,
58             modify, and otherwise mangle DateTime::Calendar::FrenchRevolutionary
59             under the same terms as perl 5.16.3.
60              
61             This program is distributed under the same terms as Perl 5.16.3: GNU
62             Public License version 1 or later and Perl Artistic License
63              
64             You can find the text of the licenses in the F<LICENSE> file or at
65             L<http://www.perlfoundation.org/artistic_license_1_0> and
66             L<http://www.gnu.org/licenses/gpl-1.0.html>.
67              
68             Here is the summary of GPL:
69              
70             This program is free software; you can redistribute it and/or modify
71             it under the terms of the GNU General Public License as published by
72             the Free Software Foundation; either version 1, or (at your option)
73             any later version.
74              
75             This program is distributed in the hope that it will be useful, but
76             WITHOUT ANY WARRANTY; without even the implied warranty of
77             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
78             General Public License for more details.
79              
80             You should have received a copy of the GNU General Public License
81             along with this program; if not, see <http://www.gnu.org/licenses/> or
82             write to the Free Software Foundation, Inc., L<http://fsf.org>.
83              
84             =cut