File Coverage

blib/lib/DBIx/Class/Smooth/Lookup/DateTime/month.pm
Criterion Covered Total %
statement 14 21 66.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 28 67.8


line stmt bran cond sub pod time code
1 2     2   709 use 5.20.0;
  2         5  
2 2     2   49 use strict;
  2         7  
  2         41  
3 2     2   10 use warnings;
  2         3  
  2         94  
4              
5             package DBIx::Class::Smooth::Lookup::DateTime::month;
6              
7             # ABSTRACT: Short intro
8             our $AUTHORITY = 'cpan:CSSON'; # AUTHORITY
9             our $VERSION = '0.0102';
10              
11 2     2   9 use parent 'DBIx::Class::Smooth::Lookup::DateTime::datepart';
  2         4  
  2         8  
12 2     2   120 use experimental qw/signatures postderef/;
  2         6  
  2         7  
13              
14 0     0 0   sub smooth__lookup__month($self, $column_name, $value, @rest) {
  0            
  0            
  0            
  0            
  0            
15 0           return $self->smooth__lookup__datepart($column_name, $value, ['month']);
16             }
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             DBIx::Class::Smooth::Lookup::DateTime::month - Short intro
29              
30             =head1 VERSION
31              
32             Version 0.0102, released 2019-12-22.
33              
34             =head1 SOURCE
35              
36             L<https://github.com/Csson/p5-DBIx-Class-Smooth>
37              
38             =head1 HOMEPAGE
39              
40             L<https://metacpan.org/release/DBIx-Class-Smooth>
41              
42             =head1 AUTHOR
43              
44             Erik Carlsson <info@code301.com>
45              
46             =head1 COPYRIGHT AND LICENSE
47              
48             This software is copyright (c) 2018 by Erik Carlsson.
49              
50             This is free software; you can redistribute it and/or modify it under
51             the same terms as the Perl 5 programming language system itself.
52              
53             =cut