[Catalyst-commits] r6978 - trunk/Catalyst-Plugin-Authentication-Store-DBIx-Class/lib/Catalyst/Plugin/Authentication/Store/DBIx

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-10-09 21:30:21 +0100 (Tue, 09 Oct 2007)
New Revision: 6978

Modified:
   trunk/Catalyst-Plugin-Authentication-Store-DBIx-Class/lib/Catalyst/Plugin/Authentication/Store/DBIx/Class.pm
Log:
first draft of auto_create/auto_update for dbix-class store

Modified: trunk/Catalyst-Plugin-Authentication-Store-DBIx-Class/lib/Catalyst/Plugin/Authentication/Store/DBIx/Class.pm
===================================================================
--- trunk/Catalyst-Plugin-Authentication-Store-DBIx-Class/lib/Catalyst/Plugin/Authentication/Store/DBIx/Class.pm	2007-10-09 20:29:59 UTC (rev 6977)
+++ trunk/Catalyst-Plugin-Authentication-Store-DBIx-Class/lib/Catalyst/Plugin/Authentication/Store/DBIx/Class.pm	2007-10-09 20:30:21 UTC (rev 6978)
@@ -71,6 +71,18 @@
     $self->config->{'store_user_class'}->supports( @_ );
 }
 
+sub auto_create {
+    my( $self, $authinfo, $c ) = @_;
+    my $res = $self->config->{'store_user_class'}->new($self->{'config'}, $c);
+    return $res->auto_create( $authinfo, $c );
+}
+
+sub auto_update {
+    my( $self, $authinfo, $c, $res ) = @_;
+    $res->auto_update( $authinfo, $c );
+    return $res;
+}
+
 __PACKAGE__;
 
 __END__