[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