[Jifty-commit] r1586 - in jifty/branches/moose: lib/Jifty

[jifty-commit at lists.jifty.org]

Author: audreyt
Date: Sat Jul 15 01:46:55 2006
New Revision: 1586

Modified:
   jifty/branches/moose/Makefile.PL
   jifty/branches/moose/lib/Jifty/Action.pm
   jifty/branches/moose/lib/Jifty/Notification.pm
   jifty/branches/moose/lib/Jifty/Object.pm

Log:
* Remove Class::Accessor::Fast again for a _mk_accessor compat.

Modified: jifty/branches/moose/Makefile.PL
==============================================================================
--- jifty/branches/moose/Makefile.PL	(original)
+++ jifty/branches/moose/Makefile.PL	Sat Jul 15 01:46:55 2006
@@ -6,7 +6,6 @@
 requires('App::CLI' => 0.03 ); # App::CLI::Command::Help App::CLI::Command
 requires('Cache::Cache'); #Cache::FileCache
 requires('Calendar::Simple');
-requires('Class::Accessor::Fast');
 requires('Class::Accessor::Named'); 
 requires('Class::Container');
 requires('Class::Data::Inheritable');

Modified: jifty/branches/moose/lib/Jifty/Action.pm
==============================================================================
--- jifty/branches/moose/lib/Jifty/Action.pm	(original)
+++ jifty/branches/moose/lib/Jifty/Action.pm	Sat Jul 15 01:46:55 2006
@@ -18,7 +18,6 @@
 
 
 use base qw/Jifty::Object/;
-use base qw(Class::Accessor::Fast); # compat only
 use Moose;
 has moniker             => qw( is rw isa Str );
 has argument_values     => qw( is rw isa HashRef );

Modified: jifty/branches/moose/lib/Jifty/Notification.pm
==============================================================================
--- jifty/branches/moose/lib/Jifty/Notification.pm	(original)
+++ jifty/branches/moose/lib/Jifty/Notification.pm	Sat Jul 15 01:46:55 2006
@@ -4,7 +4,6 @@
 package Jifty::Notification;
 
 use base qw/Jifty::Object/;
-use base qw(Class::Accessor::Fast); # compat only
 use Email::Send            ();
 use Email::Simple          ();
 use Email::Simple::Creator ();

Modified: jifty/branches/moose/lib/Jifty/Object.pm
==============================================================================
--- jifty/branches/moose/lib/Jifty/Object.pm	(original)
+++ jifty/branches/moose/lib/Jifty/Object.pm	Sat Jul 15 01:46:55 2006
@@ -8,6 +8,11 @@
 use Carp;
 use Scalar::Util qw(refaddr);
 
+sub mk_accessor {
+    my $class = shift;
+    $class->meta->_process_attribute($_ => qw( is rw )) for @_;
+}
+
 =head1 Jifty::Object
 
 C<Jifty::Object> is the superclass of most of Jifty's objects.  It is