File Coverage

blib/lib/DBIx/Class/Smooth/Lookup/Operators/lte.pm
Criterion Covered Total %
statement 14 22 63.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 29 65.5


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