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.035000';
3 57     57   27473 use strict;
  57         173  
  57         1683  
4 57     57   355 use warnings;
  57         158  
  57         1583  
5              
6 57     57   319 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Search::Base';
  57         135  
  57         334  
7              
8              
9             sub not_null {
10 1     1 1 974 my ($self, @columns) = @_;
11              
12 1         12 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) 2020 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