[Jifty-commit] r5413 - in Net-Jifty: .

Jifty commits jifty-commit at lists.jifty.org
Wed May 7 23:06:03 EDT 2008


Author: sartak
Date: Wed May  7 23:06:03 2008
New Revision: 5413

Modified:
   Net-Jifty/   (props changed)
   Net-Jifty/lib/Net/Jifty.pm

Log:
 r55410 at onn:  sartak | 2008-05-07 23:06:00 -0400
 Keep track of which model classes we've populated


Modified: Net-Jifty/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/lib/Net/Jifty.pm	Wed May  7 23:06:03 2008
@@ -951,10 +951,6 @@
     my $model = shift;
     my $class = shift;
 
-    # retrieve and massage spec from the server..
-    my $spec = $self->get_model_spec($model);
-    my @attributes = $self->_moosify_columns($spec);
-
     my ($last) = $model =~ /.*::(.*)/;
     $last = $model if !$last; # no ::
 
@@ -967,6 +963,14 @@
         }
     }
 
+    if ($class->can('_net_jifty_model_class_created')) {
+        return $class->meta->name;
+    }
+
+    # retrieve and massage spec from the server..
+    my $spec = $self->get_model_spec($model);
+    my @attributes = $self->_moosify_columns($spec);
+
     if ($class->can('meta')) {
         $class->meta->make_mutable;
     }
@@ -975,6 +979,9 @@
         $class,
         superclasses => ['Net::Jifty::Record'],
         attributes   => \@attributes,
+        methods      => {
+            _net_jifty_model_class_created => sub { 1 },
+        },
     );
 
     for my $attribute (@attributes) {


More information about the Jifty-commit mailing list