X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FInflateColumn%2FObject%2FEnum.pm;fp=lib%2FDBIx%2FClass%2FInflateColumn%2FObject%2FEnum.pm;h=bbcba6457670cadf6661607371cd775c9399903b;hb=c5f3507b3af8bcd16e6540f98cbcae2983a4db1d;hp=2d66a787533a2ff649d5e99dc9cf65b588220f7f;hpb=d9b07e66c8dc530f4aab26b5b3d0b0996fcd6907;p=dbsrgits%2FDBIx-Class-InflateColumn-Object-Enum.git diff --git a/lib/DBIx/Class/InflateColumn/Object/Enum.pm b/lib/DBIx/Class/InflateColumn/Object/Enum.pm index 2d66a78..bbcba64 100644 --- a/lib/DBIx/Class/InflateColumn/Object/Enum.pm +++ b/lib/DBIx/Class/InflateColumn/Object/Enum.pm @@ -95,12 +95,11 @@ sub register_column { my $values = $info->{extra}->{list}; my %values = map {$_=>1} @{$values}; - - if ( defined($info->{default_value}) && !exists $values{$info->{default_value}}) { - push(@{$values},$info->{default_value}); - $values->{$info->{default_value}} = 1; - } - + + push(@{$values},$info->{default_value}) + if defined($info->{default_value}) + && !exists $values{$info->{default_value}}; + $self->inflate_column( $column => { inflate => sub {