File Coverage

blib/lib/DBIx/Class/Smooth/Lookup/DateTime/year.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   929 use 5.20.0;
  2         8  
2 2     2   11 use strict;
  2         4  
  2         40  
3 2     2   10 use warnings;
  2         3  
  2         124  
4              
5             package DBIx::Class::Smooth::Lookup::DateTime::year;
6              
7             # ABSTRACT: Short intro
8             our $AUTHORITY = 'cpan:CSSON'; # AUTHORITY
9             our $VERSION = '0.0101';
10              
11 2     2   13 use parent 'DBIx::Class::Smooth::Lookup::DateTime::datepart';
  2         4  
  2         20  
12 2     2   105 use experimental qw/signatures postderef/;
  2         4  
  2         14  
13              
14 0     0 0   sub smooth__lookup__year($self, $column_name, $value, @rest) {
  0            
  0            
  0            
  0            
  0            
15 0           return $self->smooth__lookup__datepart($column_name, $value, ['year']);
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::year - Short intro
29              
30             =head1 VERSION
31              
32             Version 0.0101, released 2018-11-29.
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