[Catalyst-commits] r12707 - in trunk/Catalyst-Model-DBI: . lib/Catalyst/Helper/Model lib/Catalyst/Model

[alex at dev.catalyst.perl.org]

Author: alex
Date: 2010-01-22 03:47:32 +0000 (Fri, 22 Jan 2010)
New Revision: 12707

Modified:
   trunk/Catalyst-Model-DBI/Changes
   trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm
   trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
Log:
Added Class::C3 support

Modified: trunk/Catalyst-Model-DBI/Changes
===================================================================
--- trunk/Catalyst-Model-DBI/Changes	2010-01-21 09:45:04 UTC (rev 12706)
+++ trunk/Catalyst-Model-DBI/Changes	2010-01-22 03:47:32 UTC (rev 12707)
@@ -1,4 +1,6 @@
 Revision history for Perl extension Catalyst::Model::DBI.
+0.25  Thu Jan 21 18:00:00 2010
+	- Added support for Class::C3
 0.24  Sun Oct 18 19:30:00 2009
         - Fixup copyright info
 0.23  Fri Oct 02 10:30:00 2009

Modified: trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm
===================================================================
--- trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm	2010-01-21 09:45:04 UTC (rev 12706)
+++ trunk/Catalyst-Model-DBI/lib/Catalyst/Helper/Model/DBI.pm	2010-01-22 03:47:32 UTC (rev 12707)
@@ -3,7 +3,7 @@
 use strict;
 use File::Spec;
 
-our $VERSION = '0.23';
+our $VERSION = '0.25';
 
 =head1 NAME
 

Modified: trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm
===================================================================
--- trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2010-01-21 09:45:04 UTC (rev 12706)
+++ trunk/Catalyst-Model-DBI/lib/Catalyst/Model/DBI.pm	2010-01-22 03:47:32 UTC (rev 12707)
@@ -2,10 +2,10 @@
 
 use strict;
 use base 'Catalyst::Model';
-use MRO::Compat;
+use Class::C3;
 use DBI;
 
-our $VERSION = '0.24';
+our $VERSION = '0.25';
 
 __PACKAGE__->mk_accessors( qw/_dbh _pid _tid/ );
 
@@ -50,9 +50,8 @@
 =cut
 
 sub new {
-	my $self = shift;
+	my $self  = shift->next::method(@_);
 	my ( $c ) = @_;
-	$self = $self->NEXT::new( @_ );
 	$self->{namespace}               ||= ref $self;
 	$self->{additional_base_classes} ||= ();
 	$self->{log} = $c->log;
@@ -173,4 +172,4 @@
 
 =cut
 
-1;
+1;
\ No newline at end of file