#!/usr/bin/perl use strict; use warnings; our $test_class = 'FieldTest::Object'; our @mapping = ( 'basic' => { type => "object", dynamic => "strict", properties => { bar => { type => "string" }, foo => { dynamic => "strict", include_in_all => 0, properties => { foo => { type => "string" } }, type => "object", }, }, }, disabled => { type => "object", enabled => 0 }, options => { dynamic => "true", include_in_all => 0, path => "full", properties => { bar => { type => "string" }, foo => { dynamic => "strict", include_in_all => 0, properties => { foo => { type => "string" } }, type => "object", }, }, type => "object", }, multi => qr/doesn't understand 'multi'/, ); do 't/10_typemaps/test_field.pl' or die $!; 1;