in reply to Re: MooseX::Types::TypeDecorator error
in thread MooseX::Types::TypeDecorator error
use MooseX::Declare; class Foo { use feature qw(say); use Data::Dumper; use MooseX::MultiMethods; use MooseX::Types -declare => [qw(Bar MyStr MyNum)]; use MooseX::Types::Moose qw(Str Num); use MooseX::Types::Structured qw(Dict); BEGIN { subtype MyStr, as Str; subtype MyNum, as Num; subtype Bar, as Dict[ string => MyStr, number => MyNum, ], message { 'Invalid Foo struct' }; }; multi method baz(Bar $barrr) { say'Bar'; say Dumper $barrr } multi method baz(Str $string) { say 'Str'; say Dumper $string; } } no Moose; no MooseX::Declare; 1; package main; my $foo = Foo->new; $foo->baz( { string => 'hello', number => 1.00, } ); $foo->baz( 'hello world' )
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: MooseX::Types::TypeDecorator error
by Anonymous Monk on Jul 16, 2009 at 14:34 UTC | |
|
Re^3: MooseX::Types::TypeDecorator error
by phaylon (Curate) on Jul 16, 2009 at 22:05 UTC | |
by KSURi (Monk) on Jul 17, 2009 at 09:09 UTC | |
by Anonymous Monk on Jul 17, 2009 at 06:29 UTC |