merrilymeredith / p5-class-type-enum Goto Github PK

("is_bread", "is_toasting", "is_toast", "is_burnt")

sub list_is_methods {
  map "is_$_", @{ $_[0]->values };
}

package Toast {
  use Moo;
 
  has status => (
    is     => 'rw',
    coerce => sub {
      Toast::Status->coerce_symbol(shift)
    },
    isa    => sub {
      $_[0]->isa('Toast::Status') or die "Toast calamity!"
    },
    handles => [ Toast::Status->list_is_methods ],
  );
}

my $toast = Toast->new(status => "bread");
if ($toast->is_bread) {  # don't need to do $toast->status->is_bread
  ...;
}

sub type_constraint {
  my $class = ref($_[0]) || $_[0];
  require Type::Tiny::Class;
  require Types::Standard;
  Type::Tiny::Class
    ->new(class => $class)
    ->plus_constructors(Types::Standard::Str(), "coerce_symbol");
}

package Toast {
  use Moo;
 
  has status => (
    is     => 'rw',
    isa    => Toast::Status->type_constraint,
    coerce => 1,
  );
}