File Coverage

blib/lib/DBIx/Class/Helper/ResultSet/Shortcut/Distinct.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package DBIx::Class::Helper::ResultSet::Shortcut::Distinct;
2             $DBIx::Class::Helper::ResultSet::Shortcut::Distinct::VERSION = '2.036000';
3 57     57   24820 use strict;
  57         132  
  57         1492  
4 57     57   267 use warnings;
  57         131  
  57         1408  
5              
6 57     57   281 use parent 'DBIx::Class::ResultSet';
  57         119  
  57         317  
7              
8 1 50   1 1 86 sub distinct { $_[0]->search(undef, { distinct => defined $_[1] ? $_[1] : 1 }) }
9              
10             1;
11              
12             __END__
13              
14             =pod
15              
16             =head1 NAME
17              
18             DBIx::Class::Helper::ResultSet::Shortcut::Distinct
19              
20             =head1 AUTHOR
21              
22             Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
23              
24             =head1 COPYRIGHT AND LICENSE
25              
26             This software is copyright (c) 2020 by Arthur Axel "fREW" Schmidt.
27              
28             This is free software; you can redistribute it and/or modify it under
29             the same terms as the Perl 5 programming language system itself.
30              
31             =cut