File Coverage

blib/lib/Catalyst/Plugin/Flavour/Data.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 16 18 88.8


line stmt bran cond sub pod time code
1             package Catalyst::Plugin::Flavour::Data;
2 2     2   131 use strict;
  2         6  
  2         83  
3 2     2   20 use warnings;
  2         3  
  2         72  
4 2     2   12 use base qw/Class::Accessor::Fast/;
  2         4  
  2         347  
5              
6             use overload (
7 0     0     q{""} => sub { shift->flavour },
8 2     2   14 );
  2         4  
  2         33  
9              
10             __PACKAGE__->mk_accessors(qw/fn flavour year month day/);
11              
12             *yr = \&year;
13             *mo = \&month;
14             *da = \&day;
15              
16             =head1 NAME
17              
18             Catalyst::Plugin::Flavour::Data - Flavour data class
19              
20             =head1 SEE ALSO
21              
22             L<Catalyst::Plugin::Flavour>
23              
24             =head1 AUTHOR
25              
26             Daisuke Murase E<lt>typester@cpan.orgE<gt>
27              
28             =head1 COPYRIGHT
29              
30             This program is free software; you can redistribute
31             it and/or modify it under the same terms as Perl itself.
32              
33             The full text of the license can be found in the
34             LICENSE file included with this module.
35              
36             =cut
37              
38             1;