[Jifty-commit] r3740 - in Jifty-DBI/trunk: lib/Jifty/DBI/Filter

[jifty-commit at lists.jifty.org]

Author: jesse
Date: Mon Jul 30 19:55:14 2007
New Revision: 3740

Added:
   Jifty-DBI/trunk/lib/Jifty/DBI/Filter/UUID.pm
Modified:
   Jifty-DBI/trunk/   (props changed)

Log:
 r64923 at pinglin:  jesse | 2007-07-30 19:54:31 -0400
  * first stab at a UUID filter


Added: Jifty-DBI/trunk/lib/Jifty/DBI/Filter/UUID.pm
==============================================================================
--- (empty file)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Filter/UUID.pm	Mon Jul 30 19:55:14 2007
@@ -0,0 +1,46 @@
+package Jifty::DBI::Filter::UUID;
+
+use warnings;
+use strict;
+
+use base qw|Jifty::DBI::Filter|;
+use Data::UUID;
+
+our $UUID_GEN = Data::UUID->new();
+
+
+
+=head1 NAME
+
+Jifty::DBI::Filter::uuid - Sets column to a UUID
+
+=head1 DESCRIPTION
+
+UUID columns
+
+=head2 encode
+
+If value is not efined, sets it to a new UUID. Otherwise does nothing
+
+=cut
+
+sub encode {
+    my $self = shift;
+
+    my $value_ref = $self->value_ref;
+    return unless $$value_ref;
+
+    $$value_ref = $UUID_GEN->create_str();
+
+
+    return 1;
+}
+
+
+=head1 SEE ALSO
+
+L<Jifty::DBI::Filter>, L<MIME::Base64>
+
+=cut
+
+1;