MX::Types caveat

test.pl

package Framework::Query;
use Moose;
has str => (is => "ro", required => 1);

package Framework::Types;
use MooseX::Types -declare => [qw( Query )];
class_type Query, { class => "Framework::Query" };

package Framework;

BEGIN {
# this could be simply 'use Framework::Types qw(:all)' if Framework::Types is in separate file
Framework::Types->import(qw(:all));
}

Framework::Query->new(str => 5);

test_output.txt

Argument cannot be 'str' at /usr/share/perl5/MooseX/Types/TypeDecorator.pm line 82
	MooseX::Types::TypeDecorator::new('MooseX::Types::TypeDecorator=HASH(0xeedd98)', 'str', 5) called at - line 15