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

diff --git a/Changes b/Changes
index 51daaff..8fa08bb 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;