File Coverage

blib/lib/DBIx/Class/InflateColumn/ClassTypeEnum.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	14	0.0
condition	0	3	0.0
subroutine	3	8	37.5
pod	1	1	100.0
total	13	56	23.2

package DBIx::Class::InflateColumn::ClassTypeEnum;
# ABSTRACT: Inflate enum-like columns to your Class::Type::Enum classes
$DBIx::Class::InflateColumn::ClassTypeEnum::VERSION = '0.013';

use warnings;
use strict;

use Carp ();



sub register_column {
  my ($self, $column, $info) = @_;
  $self->next::method($column, $info);

  return unless $info->{extra} and my $class = $info->{extra}{enum_class};

  unless (eval { $class->isa('Class::Type::Enum') }) {
    Carp::croak "enum_class $class is not loaded or doesn't inherit from Class::Type::Enum";
  }

  # I'd love to DTRT based on the column type but I think they're practically
  # freeform in DBIC and just match the DB types, so that's a lot of
  # possibilities...

  if ($info->{extra}{enum_ordinal_storage}) {
    $self->inflate_column(
      $column => {
        inflate => sub {
          my ($ord) = @_;
          return unless defined $ord;
          $class->inflate_ordinal($ord);
        },
        deflate => sub {
          my ($enum) = @_;
          return unless defined $enum;
          $enum->numify;
        },
      }
    );

  }
  else {
    $self->inflate_column(
      $column => {
        inflate => sub {
          my ($val) = @_;
          return unless defined $val;
          $class->inflate_symbol($val);
        },
        deflate => sub {
          my ($enum) = @_;
          return unless defined $enum;
          $enum->stringify;
        },
      }
    );
  }
}


1;

__END__