my %type; $type{ENUM} = 9; # :O ?? ;) $type{ULONG} = 23; $type{IdKind} = [ $type{ULONG}, "value", undef ]; $type{AutoIdKind} = [ $type{ENUM}, "AutoidKind", [ "SEQUENTIAL", "HASH" ]]; my @annotations = ( [ id => $type{IdKind}, ], [ autoid => $type{AutoIdKind}, [ $type{AutoIdKind}, value => 'HASH' ]], ); dd \%type, \@annotations; __END__ #### AddAnnotation( autoid => Type('AutoIdKind'), [ Type('AutoIdKind'), value => 'HASH' ] );