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.034002';
3 56     56   20336 use strict;
  56         152  
  56         1417  
4 56     56   251 use warnings;
  56         122  
  56         1341  
5              
6 56     56   275 use parent 'DBIx::Class::ResultSet';
  56         104  
  56         257  
7              
8 1 50   1 1 67 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) 2019 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