package DBIx::Class::Helper::ResultSet::Shortcut::Distinct; use strict; use warnings; our $VERSION = '2.018002'; # VERSION sub distinct { $_[0]->search(undef, { distinct => defined $_[1] ? $_[1] : 1 }) } 1; __END__ =pod =head1 NAME DBIx::Class::Helper::ResultSet::Shortcut::Distinct =head1 VERSION version 2.018002 =head1 AUTHOR Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2013 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut