X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLexical%2FTypes.pm;h=3b5691a33660fb41f4cae4a41f46bed663b26d90;hb=23835643676b714abfb9a3ec5690d44c9d124d38;hp=a30c9cccb3964264210299fe88e476e439d208be;hpb=6e9fd96c28c8668b519d83400c021c8c3a6c3561;p=perl%2Fmodules%2FLexical-Types.git diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm index a30c9cc..3b5691a 100644 --- a/lib/Lexical/Types.pm +++ b/lib/Lexical/Types.pm @@ -11,13 +11,13 @@ Lexical::Types - Extend the semantics of typed lexicals. =head1 VERSION -Version 0.14 +Version 0.16 =cut our $VERSION; BEGIN { - $VERSION = '0.14'; + $VERSION = '0.16'; } =head1 SYNOPSIS @@ -164,9 +164,9 @@ sub import { } $^H |= 0x020000; - # Yes, we store a coderef inside the hints hash, but that's just for compile - # time. $^H{+(__PACKAGE__)} = $hint; + + return; } =head2 C @@ -179,7 +179,10 @@ Turns the pragma off. =cut sub unimport { + $^H |= 0x020000; $^H{+(__PACKAGE__)} = undef; + + return; } =head1 RUN-TIME INITIALIZER METHOD @@ -318,7 +321,7 @@ Thanks Florian Ragwitz for suggesting the use of constants for types. =head1 COPYRIGHT & LICENSE -Copyright 2009,2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved. +Copyright 2009,2010,2011,2012,2013,2014,2015,2017 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.