File Coverage

blib/lib/DBIx/Class/Helper/ResultSet/Shortcut/Search/NotLike.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::NotLike;
2             $DBIx::Class::Helper::ResultSet::Shortcut::Search::NotLike::VERSION = '2.035000';
3 57     57   28045 use strict;
  57         146  
  57         1638  
4 57     57   304 use warnings;
  57         144  
  57         1530  
5              
6 57     57   325 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Search::Base';
  57         149  
  57         316  
7              
8              
9             sub not_like {
10 1     1 1 1003 my ($self, $columns, $cond) = @_;
11              
12 1         11 return $self->_helper_apply_search({ '-not_like' => $cond }, $columns);
13             }
14              
15             1;
16              
17             __END__
18              
19             =pod
20              
21             =head1 NAME
22              
23             DBIx::Class::Helper::ResultSet::Shortcut::Search::NotLike
24              
25             =head2 not_like($column || \@columns, $cond)
26              
27             $rs->not_like('lyrics', '%zebra%');
28             $rs->not_like(['lyrics', 'title'], '%zebra%');
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