/usr/share/perl5/DBIx/SearchBuilder/Unique.pm is in libdbix-searchbuilder-perl 1.61-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | package DBIx::SearchBuilder::Unique;
use base 'Exporter';
our @EXPORT = qw(AddRecord);
our $VERSION = "0.01";
use strict;
use warnings;
sub AddRecord {
my $self = shift;
my $record = shift;
# We're a mixin, so we can't override _CleanSlate, but if an object
# gets reused, we need to clean ourselves out. If there are no items,
# we're clearly doing a new search
$self->{"dbix_sb_unique_cache"} = {} unless (@{$self->{'items'}}[0]);
return if $self->{"dbix_sb_unique_cache"}->{$record->id}++;
push @{$self->{'items'}}, $record;
}
1;
=head1 NAME
DBIx::SearchBuilder::Unique - Ensure uniqueness of records in a collection
=head1 SYNOPSIS
package Foo::Collection;
use base 'DBIx::SearchBuilder';
use DBIx::SearchBuilder::Unique; # mixin
my $collection = Foo::Collection->New();
$collection->SetupComplicatedJoins;
$collection->OrderByMagic;
while (my $thing = $collection->Next) {
# $thing is going to be distinct
}
=head1 DESCRIPTION
Currently, DBIx::SearchBuilder makes exceptions for databases which
cannot handle both C<SELECT DISTINCT> and ordering in the same
statement; it drops the C<DISTINCT> requirement. This, of course, means
that you can get the same row twice, which you might not want. If that's
the case, use this module as a mix-in, and it will provide you with an
C<AddRecord> method which ensures that a record will not appear twice in
the same search.
=head1 AUTHOR
Simon Cozens.
=head1 COPYRIGHT
Copyright 2005 Best Practical Solutions, LLC
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
|