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;

##</code><code>##

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;

##</code><code>##

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

##</code><code>##

Can't call method "is_a_type_of" on an undefined value at /Users/io1/perl5/perlbrew/perls/p512/lib/site_perl/5.12.0/darwin-thread-multi-2level/Moose/Meta/Attribute/Native/Trait.pm line 62.
Compilation failed in require.
BEGIN failed--compilation aborted.