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.036000';
3 57     57   25710 use strict;
  57         142  
  57         1543  
4 57     57   324 use warnings;
  57         121  
  57         1380  
5              
6 57     57   297 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Search::Base';
  57         115  
  57         412  
7              
8              
9             sub not_like {
10 1     1 1 989 my ($self, $columns, $cond) = @_;
11              
12 1         13 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