[Bast-commits] r8733 - DBIx-Class-Journal/1.000/branches/allow_components_in_journal/lib/DBIx/Class/Schema

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-02-17 16:17:26 +0000 (Wed, 17 Feb 2010)
New Revision: 8733

Modified:
   DBIx-Class-Journal/1.000/branches/allow_components_in_journal/lib/DBIx/Class/Schema/Journal.pm
Log:
much cleaner base injection thanks to ribasushi

Modified: DBIx-Class-Journal/1.000/branches/allow_components_in_journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/branches/allow_components_in_journal/lib/DBIx/Class/Schema/Journal.pm	2010-02-17 07:44:03 UTC (rev 8732)
+++ DBIx-Class-Journal/1.000/branches/allow_components_in_journal/lib/DBIx/Class/Schema/Journal.pm	2010-02-17 16:17:26 UTC (rev 8733)
@@ -29,10 +29,8 @@
     }
 
     my $c = (blessed( $self )|| $self);
-    no strict 'refs';
-    my @parents = grep { $_ ne 'DBIx::Class::Schema::Journal' } @{$c."::ISA"};
-    use strict;
-    my $journal_schema_class = "$c\::Journal";
+    my @parents = grep { $_ ne 'DBIx::Class::Schema::Journal' } @{mro::get_linear_isa($c)};
+    my $journal_schema_class = "${c}::Journal";
     Class::C3::Componentised->inject_base($journal_schema_class, @parents);
 
     my $proto = $self->__journal_schema_prototype (