I believe (after trying) that this won't work. Either I tried this wrong, or else Perl is looking for some module called MyEnum.pm
Best Regards, Dov Levenglick On Wed, Apr 4, 2012 at 09:40, Shmuel Fomberg <[email protected]> wrote: > My experience with Moose is nil, but how about something like that: > > my %enum = ( A => 0, B => 1, C => 2); > > subtype 'MyEnum', > as 'Str', > where { exists $enum{$_} }, > message { "Wrong Enum name: $_" }; > > And then: > coerce 'MyEnum', > from 'Int', > via { $enum{$_} }; > > Shmuel. > > On Wed, Apr 4, 2012 at 3:27 PM, Dov Levenglick <[email protected]> > wrote: >> >> Hi, >> I want to declare a 3 value'd enum equivalent - i.e. (mixing C and perl): >> >> package My::Enum >> use Moose; >> >> typedef enum {A, B, C} enum_t; // knowledge in C - how do I >> port this concept to Perl? >> has 'b' => (isa => 'enum_t', is => 'rw'); >> >> 1; >> >> >> How would one go about doing that >> >> >> Best Regards, >> Dov Levenglick >> _______________________________________________ >> Perl mailing list >> [email protected] >> http://mail.perl.org.il/mailman/listinfo/perl > > > > _______________________________________________ > Perl mailing list > [email protected] > http://mail.perl.org.il/mailman/listinfo/perl _______________________________________________ Perl mailing list [email protected] http://mail.perl.org.il/mailman/listinfo/perl
