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

[Jifty commits]

Author: sartak
Date: Wed May  7 21:17:50 2008
New Revision: 5402

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

Log:
 r55333 at onn:  sartak | 2008-05-07 21:17:46 -0400
 Correctly provide a default _model_class, use Moose::Meta::Class over Class::MOP::Class


Modified: Net-Jifty/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/lib/Net/Jifty.pm	Wed May  7 21:17:50 2008
@@ -956,6 +956,8 @@
     my @attributes = $self->_moosify_columns($spec);
 
     my ($last) = $model =~ /.*::(.*)/;
+    $last = $model if !$last; # no ::
+
     if (!$class) {
         if (blessed($self) eq 'Net::Jifty') {
             $class = "Net::Jifty::Record::$last";
@@ -965,12 +967,16 @@
         }
     }
 
-    my $meta = Class::MOP::Class->create(
+    my $meta = Moose::Meta::Class->create(
         $class,
         superclasses => ['Net::Jifty::Record'],
         attributes   => \@attributes,
     );
 
+    $meta->add_attribute('+_model_class',
+        default => $last,
+    );
+
     return $meta->name;
 }