gistfile1.perl

#!perl

use Test::More;
use Test::Fatal;

use MooseX::Types::Moose qw(ArrayRef HashRef Value);
use MooseX::Types -declare => [
    qw(StructHash StructArray Struct)
];

subtype StructHash, as HashRef[Struct]; 
subtype StructArray, as ArrayRef[Struct];
subtype Struct, as Value|StructArray|StructHash;

ok is_Struct(42), "Scalar struct";
ok is_Struct([ 42 ]), "Array struct";
ok is_Struct({ foo => 42 }), "Hash struct";

done_testing;

__END__

ok 1 - Scalar struct
not ok 2 - Array struct
#   Failed test 'Array struct'
#   at /home/ilmari/tmp/recursive-types.t line 16.
not ok 3 - Hash struct
#   Failed test 'Hash struct'
#   at /home/ilmari/tmp/recursive-types.t line 17.
1..3
# Looks like you failed 2 tests of 3.