[Bast-commits] r8188 - in branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema: . Loader

[jhannah at dev.catalyst.perl.org]

Author: jhannah
Date: 2009-12-30 21:26:46 +0000 (Wed, 30 Dec 2009)
New Revision: 8188

Modified:
   branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader.pm
   branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm
Log:
removed Class::Data::Accessor (deprecated)
removed Class::Accessor::Fast (can't do everything CAG can)
added   Class::Accessor::Grouped


Modified: branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm	2009-12-30 21:01:16 UTC (rev 8187)
+++ branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader/Base.pm	2009-12-30 21:26:46 UTC (rev 8188)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/Class::Accessor::Fast Class::C3::Componentised/;
+use base qw/Class::Accessor::Grouped Class::C3::Componentised/;
 use Class::C3;
 use Carp::Clan qw/^DBIx::Class/;
 use DBIx::Class::Schema::Loader::RelBuilder;
@@ -18,7 +18,7 @@
 
 our $VERSION = '0.04999_12';
 
-__PACKAGE__->mk_ro_accessors(qw/
+__PACKAGE__->mk_group_ro_accessors('inherited', qw/
                                 schema
                                 schema_class
 
@@ -51,9 +51,10 @@
                                 monikers
                                 dynamic
                                 naming
-                             /);
+/);
 
-__PACKAGE__->mk_accessors(qw/
+
+__PACKAGE__->mk_group_accessors('inherited', qw/
                                 version_to_dump
                                 schema_version_to_dump
                                 _upgrading_from

Modified: branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader.pm	2009-12-30 21:01:16 UTC (rev 8187)
+++ branches/DBIx-Class-Schema-Loader/deprecate_CDA/lib/DBIx/Class/Schema/Loader.pm	2009-12-30 21:26:46 UTC (rev 8188)
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use base qw/DBIx::Class::Schema Class::Data::Accessor/;
+use base qw/DBIx::Class::Schema Class::Accessor::Grouped/;
 use Carp::Clan qw/^DBIx::Class/;
 use Class::C3;
 use Scalar::Util qw/ weaken /;
@@ -12,10 +12,15 @@
 # brain damage and presumably various other packaging systems too
 our $VERSION = '0.04999_12';
 
-__PACKAGE__->mk_classaccessor('_loader_args' => {});
-__PACKAGE__->mk_classaccessors(qw/
-    dump_to_dir _loader_invoked _loader loader_class naming
+__PACKAGE__->mk_group_accessors('inherited', qw/
+                                _loader_args
+                                dump_to_dir
+                                _loader_invoked
+                                _loader
+                                loader_class
+                                naming
 /);
+__PACKAGE__->_loader_args({});
 
 =head1 NAME
 
@@ -134,7 +139,7 @@
 
 sub loader_options {
     my $self = shift;
-    
+
     my %args = (ref $_[0] eq 'HASH') ? %{$_[0]} : @_;
     $self->_loader_args(\%args);
 
@@ -448,6 +453,8 @@
 
 gugu: Andrey Kostenko <a.kostenko at rambler-co.ru>
 
+jhannah: Jay Hannah <jay at jays.net>
+
 ... and lots of other folks. If we forgot you, please write the current
 maintainer or RT.