X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLexical%2FTypes.pm;h=531e0e82cf5c219e914564ca6c03d88b470ea9bf;hb=23c7f5b6ae98a9f7f1d9ef3384f11eb884a764bd;hp=ea79e269f544e5ca9c094780a351442320884f71;hpb=cccda15ab5ef0fac1393861ff95ff48c8b1abff0;p=perl%2Fmodules%2FLexical-Types.git diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm index ea79e26..531e0e8 100644 --- a/lib/Lexical/Types.pm +++ b/lib/Lexical/Types.pm @@ -164,8 +164,6 @@ sub import { } $^H |= 0x020000; - # Yes, we store a coderef inside the hints hash, but that's just for compile - # time. $^H{+(__PACKAGE__)} = $hint; } @@ -179,6 +177,7 @@ Turns the pragma off. =cut sub unimport { + $^H |= 0x020000; $^H{+(__PACKAGE__)} = undef; } @@ -310,8 +309,6 @@ You can find documentation for this module with the perldoc command. perldoc Lexical::Types -Tests code coverage report is available at L. - =head1 ACKNOWLEDGEMENTS Inspired by Ricardo Signes.