[Bast-commits] r5352 - in DBIx-Class-InflateColumn-Object-Enum/1.000/trunk: . lib/DBIx/Class/InflateColumn/Object

[jmmills at dev.catalyst.perl.org]

Author: jmmills
Date: 2009-01-27 11:25:38 +0000 (Tue, 27 Jan 2009)
New Revision: 5352

Modified:
   DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Changes
   DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Makefile.PL
   DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/lib/DBIx/Class/InflateColumn/Object/Enum.pm
Log:
Removed self package dependency and updated next::method calls.



Modified: DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Changes
===================================================================
--- DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Changes	2009-01-27 09:14:29 UTC (rev 5351)
+++ DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Changes	2009-01-27 11:25:38 UTC (rev 5352)
@@ -1,5 +1,7 @@
 Revision history for DBIx-Class-InflateColumn-Object-Enum
 
+0.04    Jan 27th 2009
+	- Removed self dependency 
 0.03    Nov 11th 2008
 	- Modified error verbage as per request from mst
 	- Changed ChangeLog sorting from latest -> oldest

Modified: DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Makefile.PL
===================================================================
--- DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Makefile.PL	2009-01-27 09:14:29 UTC (rev 5351)
+++ DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/Makefile.PL	2009-01-27 11:25:38 UTC (rev 5352)
@@ -5,7 +5,6 @@
 author   'Jason M. Mills <jmmills at cpan.org>';
 
 requires 'DBIx::Class::Schema';
-requires 'self';
 requires 'Object::Enum';
 
 build_requires 'Test::More';

Modified: DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/lib/DBIx/Class/InflateColumn/Object/Enum.pm
===================================================================
--- DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/lib/DBIx/Class/InflateColumn/Object/Enum.pm	2009-01-27 09:14:29 UTC (rev 5351)
+++ DBIx-Class-InflateColumn-Object-Enum/1.000/trunk/lib/DBIx/Class/InflateColumn/Object/Enum.pm	2009-01-27 11:25:38 UTC (rev 5352)
@@ -2,7 +2,6 @@
 
 use warnings;
 use strict;
-use self;
 use Carp qw/croak confess/;
 use Object::Enum;
 
@@ -16,7 +15,7 @@
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 
 =head1 SYNOPSIS
@@ -75,9 +74,10 @@
 =cut
 
 sub register_column {
-    my ($column, $info) = args;
+    my $self = shift;
+    my ($column, $info) = @_;
     
-    self->next::method(args);
+    $self->next::method(@_);
     
     return unless defined $info->{is_enum} and $info->{is_enum};
     
@@ -99,7 +99,7 @@
         $values->{$info->{default_value}} = 1;
     }
     
-    self->inflate_column(
+    $self->inflate_column(
         $column => {
             inflate => sub {
                 my $val = shift;