A new synopsis

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index 85df03982bc19897735fa4cfbb50726a87db3a4f..b22c2cc16e454a54bcf4dc220927ff4f631a54e7 100644 (file)
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -24,15 +24,29 @@ BEGIN {
 
 =head1 SYNOPSIS
 
+    { package Str; }
+
+    {
+     package My::Types::Str;
+
+     sub new { bless { }, shift }
+    }
+
+    use Lexical::Types as => sub { 'My::Types::' . $_[0] => 'new' };
+
+    my Str $x; # $x is now a My::Types::Str object
+
     {
-     package Str;
+     package My::Types::Int;
 
-     sub TYPEDSCALAR { Some::String::Implementation->new }
+     sub TYPEDSCALAR { bless { }, shift }
     }
 
     use Lexical::Types;
 
-    my Str $x; # $x is now a Some::String::Implementation object
+    use constant Int => 'My::Types::Int';
+
+    my Int $y; # $y is now a My::Types::Int object
 
 =head1 DESCRIPTION
 

diff --git a/samples/basic.pl b/samples/basic.pl
index e35d8526f1c55b299e245c5df65b42cc3ba8a33b..9e38f1306f4a175013496775d84c8d620c39d21d 100644 (file)
--- a/samples/basic.pl
+++ b/samples/basic.pl
@@ -3,14 +3,30 @@
 use strict;
 use warnings;
 
+use blib;
+
+{ package Str; }
+
+{
+ package My::Types::Str;
+
+ sub new { bless { }, shift }
+}
+
+use Lexical::Types as => sub { 'My::Types::' . $_[0] => 'new' };
+
+my Str $x; # $x is now a My::Types::Str object
+print ref($x), "\n"; # My::Types::Str;
+
 {
- package Str;
+ package My::Types::Int;
 
- sub TYPEDSCALAR { $_[1] = ' ' x 10 }
+ sub TYPEDSCALAR { bless { }, shift }
 }
 
 use Lexical::Types;
 
-my Str $x;
+use constant Int => 'My::Types::Int';
 
-print length($x), "\n"; # 10
+my Int $y; # $y is now a My::Types::Int object
+print ref($y), "\n"; # My::Types::Int;