File Coverage

blib/lib/DBIx/Class/Helper/ResultSet/Shortcut/Search/NotNull.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::Helper::ResultSet::Shortcut::Search::NotNull;
2             $DBIx::Class::Helper::ResultSet::Shortcut::Search::NotNull::VERSION = '2.034002';
3 56     56   20784 use strict;
  56         132  
  56         1288  
4 56     56   250 use warnings;
  56         107  
  56         1207  
5              
6 56     56   288 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Search::Base';
  56         106  
  56         247  
7              
8              
9             sub not_null {
10 1     1 1 866 my ($self, @columns) = @_;
11              
12 1         9 return $self->_helper_apply_search({ '!=' => undef }, @columns);
13             }
14              
15             1;
16              
17             __END__
18              
19             =pod
20              
21             =head1 NAME
22              
23             DBIx::Class::Helper::ResultSet::Shortcut::Search::NotNull
24              
25             =head2 not_null(@columns || \@columns)
26              
27             $rs->not_null('status');
28             $rs->not_null(['status', 'title']);
29              
30             =head1 AUTHOR
31              
32             Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
33              
34             =head1 COPYRIGHT AND LICENSE
35              
36             This software is copyright (c) 2019 by Arthur Axel "fREW" Schmidt.
37              
38             This is free software; you can redistribute it and/or modify it under
39             the same terms as the Perl 5 programming language system itself.
40              
41             =cut