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.035000';
3 57     57   27294 use strict;
  57         145  
  57         1650  
4 57     57   314 use warnings;
  57         152  
  57         1557  
5              
6 57     57   337 use parent 'DBIx::Class::ResultSet';
  57         126  
  57         327  
7              
8 1 50   1 1 102 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