From: Jason M. Mills <jmmills@cpan.org>
Date: Tue, 27 Jan 2009 11:25:38 +0000 (+0000)
Subject: Removed self package dependency and updated next::method calls.
X-Git-Tag: v0.04~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0e9a0f324892cdcb7e463efa2a72ea8b96853a6;p=dbsrgits%2FDBIx-Class-InflateColumn-Object-Enum.git

Removed self package dependency and updated next::method calls.
---

diff --git a/Changes b/Changes
index 51daaff..8fa08bb 100644
--- a/Changes
+++ b/Changes
@@ -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
diff --git a/Makefile.PL b/Makefile.PL
index 3828eb9..85ce227 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,7 +5,6 @@ all_from 'lib/DBIx/Class/InflateColumn/Object/Enum.pm';
 author   'Jason M. Mills <jmmills at cpan.org>';
 
 requires 'DBIx::Class::Schema';
-requires 'self';
 requires 'Object::Enum';
 
 build_requires 'Test::More';
diff --git a/lib/DBIx/Class/InflateColumn/Object/Enum.pm b/lib/DBIx/Class/InflateColumn/Object/Enum.pm
index 2f3aaa8..e92dd7b 100644
--- a/lib/DBIx/Class/InflateColumn/Object/Enum.pm
+++ b/lib/DBIx/Class/InflateColumn/Object/Enum.pm
@@ -2,7 +2,6 @@ package DBIx::Class::InflateColumn::Object::Enum;
 
 use warnings;
 use strict;
-use self;
 use Carp qw/croak confess/;
 use Object::Enum;
 
@@ -16,7 +15,7 @@ Version 0.03
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 
 =head1 SYNOPSIS
@@ -75,9 +74,10 @@ Users do not call this directly!
 =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 @@ sub register_column {
         $values->{$info->{default_value}} = 1;
     }
     
-    self->inflate_column(
+    $self->inflate_column(
         $column => {
             inflate => sub {
                 my $val = shift;