File Coverage

blib/lib/App/calendr/Option.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package App::calendr::Option;
2              
3             $App::calendr::Option::VERSION = '0.26';
4             $App::calendr::Option::AUTHORITY = 'cpan:MANWAR';
5              
6             =head1 NAME
7              
8             App::calendr::Option - Option as Moo Role for App::calendr.
9              
10             =head1 VERSION
11              
12             Version 0.26
13              
14             =cut
15              
16 2     2   34 use 5.006;
  2         5  
17 2     2   9 use Data::Dumper;
  2         4  
  2         69  
18              
19 2     2   831 use Moo::Role;
  2         31809  
  2         11  
20 2     2   2118 use namespace::autoclean;
  2         25852  
  2         8  
21              
22 2     2   1205 use Types::Standard -all;
  2         139986  
  2         20  
23 2     2   82426 use MooX::Options;
  2         7010  
  2         13  
24              
25             has calendars => (is => 'rw');
26             option name => (is => 'ro', order => 1, isa => Str, format => 's', doc => "Calendar name e.g. Bahai,Gregorian,Hebrew,Hijri,Julian,Persian,Saka.\n\tDefault is Gregorian.");
27             option month => (is => 'ro', order => 2, isa => Str, format => 's', doc => 'Month number/name e.g. 1,2,3... or January,February...');
28             option year => (is => 'ro', order => 3, isa => Int, format => 'i', doc => 'Year number (3/4 digits)');
29             option gdate => (is => 'ro', order => 4, isa => Str, format => 's', doc => 'Gregorian date (YYYY-MM-DD)');
30             option jday => (is => 'ro', order => 5, isa => Str, format => 'i', doc => 'Julian day');
31             option as_svg => (is => 'ro', order => 6, doc => 'Generate calendar in SVG format');
32             option list_month_names => (is => 'ro', order => 7, doc => 'List calendar month names');
33              
34             =head1 DESCRIPTION
35              
36             B
37              
38             =head1 AUTHOR
39              
40             Mohammad S Anwar, C<< >>
41              
42             =head1 REPOSITORY
43              
44             L
45              
46             =head1 BUGS
47              
48             Please report any bugs or feature requests to C,
49             or through the web interface at L.
50             I will be notified and then you'll automatically be notified of progress on your
51             bug as I make changes.
52              
53             =head1 SUPPORT
54              
55             You can find documentation for this module with the perldoc command.
56              
57             perldoc App::calendr::Option
58              
59             You can also look for information at:
60              
61             =over 4
62              
63             =item * RT: CPAN's request tracker (report bugs here)
64              
65             L
66              
67             =item * AnnoCPAN: Annotated CPAN documentation
68              
69             L
70              
71             =item * CPAN Ratings
72              
73             L
74              
75             =item * Search CPAN
76              
77             L
78              
79             =back
80              
81             =head1 LICENSE AND COPYRIGHT
82              
83             Copyright (C) 2015 - 2017 Mohammad S Anwar.
84              
85             This program is free software; you can redistribute it and / or modify it under
86             the terms of the the Artistic License (2.0). You may obtain a copy of the full
87             license at:
88              
89             L
90              
91             Any use, modification, and distribution of the Standard or Modified Versions is
92             governed by this Artistic License.By using, modifying or distributing the Package,
93             you accept this license. Do not use, modify, or distribute the Package, if you do
94             not accept this license.
95              
96             If your Modified Version has been derived from a Modified Version made by someone
97             other than you,you are nevertheless required to ensure that your Modified Version
98             complies with the requirements of this license.
99              
100             This license does not grant you the right to use any trademark, service mark,
101             tradename, or logo of the Copyright Holder.
102              
103             This license includes the non-exclusive, worldwide, free-of-charge patent license
104             to make, have made, use, offer to sell, sell, import and otherwise transfer the
105             Package with respect to any patent claims licensable by the Copyright Holder that
106             are necessarily infringed by the Package. If you institute patent litigation
107             (including a cross-claim or counterclaim) against any party alleging that the
108             Package constitutes direct or contributory patent infringement,then this Artistic
109             License to you shall terminate on the date that such litigation is filed.
110              
111             Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND
112             CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED
113             WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR
114             NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS
115             REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT,
116             INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE
117             OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
118              
119             =cut
120              
121             1; # End of App::calendr::Option