SL/DB/Helper/Util.pm

   1 package SL::DB::Helper::Util;
   2
   3 use strict;
   4
   5 use Rose::DB::Object::Util;
   6
   7 use parent qw(Exporter);
   8 our @EXPORT_OK = qw(is_unique);
   9
  10 #
  11 # Public functions not exported by default
  12 #
  13
  14 sub is_unique {
  15   my ($self, @columns) = @_;
  16
  17   my @filter =  map { ($_ => $self->$_) } @columns;
  18   if (Rose::DB::Object::Util::is_in_db($self)) {
  19     push @filter, map { ("!${_}" => $self->$_ )} $self->meta->primary_key;
  20   }
  21
  22   return !$self->_get_manager_class->get_first(where => [ and => \@filter ]);
  23 }
  24
  25 1;
  26
  27 __END__
  28
  29 =pod
  30
  31 =encoding utf8
  32
  33 =head1 NAME
  34
  35 SL::DB::Helper::Util - Helper functions for Rose::DB::Object instances
  36
  37 =head1 SYNOPSIS
  38
  39   package SL::DB::AuthUser;
  40
  41   use SL::DB::Helper::Util;
  42
  43   sub validate {
  44     ...
  45     if (!SL::DB::Helper::Util::is_unique($self, 'login')) {
  46       push @errors, "Login not unique";
  47     }
  48   }
  49
  50 =head1 OVERVIEW
  51
  52 This is a collection of assorted helper and utility functions for
  53 Rose::DB::Object instances that don't require full-blown mixin helpers
  54 like L<SL::DB::ActsAsList>. The module does not export any function by
  55 default, but all of the public ones can be requested in the usual
  56 way.
  57
  58 Each function can be called either as fully qualified name with the
  59 object instance as the first argument or (if the function is imported)
  60 as an intance method on the object instance.
  61
  62 =head1 FUNCTIONS
  63
  64 =over 4
  65
  66 =item C<is_unique @columns>
  67
  68 Returns trueish if C<$self> is unique in its table regarding the
  69 columns C<@columns>. What it does is look for existing records in the
  70 database whose stored column values match C<$self>'s current values
  71 for these columns. If C<$self> already exists in the database then
  72 that row is not considered during the search.
  73
  74 =back
  75
  76 =head1 BUGS
  77
  78 Nothing here yet.
  79
  80 =head1 AUTHOR
  81
  82 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
  83
  84 =cut