Hi venerable monks,
I've been experimenting with
MooseX::Types and built a library of my types following
the example given as closely as possible. Here is my library definition:
package MyTypes;
use 5.010;
use MooseX::Types -declare => [qw( ExistingFile DataFromFile )];
use MooseX::Types::Moose qw( ArrayRef Str );
use Tie::File;
# ABSTRACT: my demo types
subtype ExistingFile
=> as Str
=> where { -e }
=> message { "file '$_' does not exist" };
subtype DataFromFile
=> as ArrayRef
=> where { ref $_ eq "ARRAY" }
=> message { "argument is not an ArrayRef" };
coerce DataFromFile
=> from ExistingFile
=> via { tie my @array, "Tie::File", $_; return \@array };
1;
And the example usage:
package Foo;
use 5.010;
use Moose;
use MyDemoTypes "DataFromFile";
# ABSTRACT: test library for my types
has names => (
traits => ["Array"],
isa => "DataFromFile", # won't compile without the quotes
coerce => 1,
required => 1,
handles => { names => "elements" },
);
1;
When I try to use it I get the following warnings:
WARNING: String found where Type expected (did you use a => instead of
+ a , ?) at lib/MyDemoTypes.pm line 14
WARNING: String found where Type expected (did you use a => instead of
+ a , ?) at lib/MyDemoTypes.pm line 19
WARNING: String found where Type expected (did you use a => instead of
+ a , ?) at lib/MyDemoTypes.pm line 19
WARNING: String found where Type expected (did you use a => instead of
+ a , ?) at lib/MyDemoTypes.pm line 23
WARNING: String found where Type expected (did you use a => instead of
+ a , ?) at lib/MyDemoTypes.pm line 23
When I make the suggested changes it gets much worse:
Can't call method "is_a_type_of" on an undefined value at /Users/io1/p
+erl5/perlbrew/perls/p512/lib/site_perl/5.12.0/darwin-thread-multi-2le
+vel/Moose/Meta/Attribute/Native/Trait.pm line 62.
Compilation failed in require.
BEGIN failed--compilation aborted.
What exactly am I doing wrong here? As usual I appreciate any assistance ;)
Smoothie, smoothie, hundre prosent naturlig!