[Israel.pm] Moose question

Dov Levenglick dov.levenglick at gmail.com
Wed Apr 4 00:08:48 PDT 2012


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 <shmuelfomberg at gmail.com> 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 <dov.levenglick at gmail.com>
> 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
>> Perl at perl.org.il
>> http://mail.perl.org.il/mailman/listinfo/perl
>
>
>
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://mail.perl.org.il/mailman/listinfo/perl


More information about the Perl mailing list