[Bast-commits] r3654 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-08-07 15:45:46 +0100 (Tue, 07 Aug 2007)
New Revision: 3654

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/AccessorGroup.pm
   DBIx-Class/0.08/trunk/t/05components.t
Log:
fix for AccessorGroup

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2007-08-07 14:11:18 UTC (rev 3653)
+++ DBIx-Class/0.08/trunk/Changes	2007-08-07 14:45:46 UTC (rev 3654)
@@ -1,6 +1,7 @@
 Revision history for DBIx::Class
         - fixed storage->connected fork bug
           (test and fix from Radu Greab)
+        - add 1; to AccessorGroup.pm for stuff that still uses it
         - refactor Statistics to create debugging filehandle to fix bug with
           closed STDERR, update docs and modify Versioned to use Statistics
           (original fix from diz)

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/AccessorGroup.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/AccessorGroup.pm	2007-08-07 14:11:18 UTC (rev 3653)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/AccessorGroup.pm	2007-08-07 14:45:46 UTC (rev 3654)
@@ -5,6 +5,8 @@
 
 use base qw/Class::Accessor::Grouped/;
 
+1;
+
 =head1 NAME
 
 DBIx::Class::AccessorGroup - See Class::Accessor::Grouped

Modified: DBIx-Class/0.08/trunk/t/05components.t
===================================================================
--- DBIx-Class/0.08/trunk/t/05components.t	2007-08-07 14:11:18 UTC (rev 3653)
+++ DBIx-Class/0.08/trunk/t/05components.t	2007-08-07 14:45:46 UTC (rev 3654)
@@ -7,7 +7,7 @@
 use lib qw(t/lib);
 use DBICTest::ForeignComponent;
 
-plan tests => 5;
+plan tests => 6;
 
 #   Tests if foreign component was loaded by calling foreign's method
 ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' );
@@ -62,3 +62,5 @@
 }
 is( scalar @warnings, 0,
     'warning not issued for correct order in load_components()' );
+
+use_ok('DBIx::Class::AccessorGroup');