11 package My::Types::Str;
13 sub new { bless { }, shift }
16 use Lexical::Types as => sub { 'My::Types::' . $_[0] => 'new' };
18 my Str $x; # $x is now a My::Types::Str object
19 print ref($x), "\n"; # My::Types::Str;
22 package My::Types::Int;
24 sub TYPEDSCALAR { bless { }, shift }
29 use constant Int => 'My::Types::Int';
31 my Int $y; # $y is now a My::Types::Int object
32 print ref($y), "\n"; # My::Types::Int;