=head1 VERSION
-Version 0.06
+Version 0.08
=cut
our $VERSION;
BEGIN {
- $VERSION = '0.06';
+ $VERSION = '0.08';
}
=head1 SYNOPSIS
Each call to C<unimport> adds the specified features to the ones already in use in the current lexical scope.
-When C<@opts> is empty, it defaults to C<qw/fetch exists delete/>.
+When C<@opts> is empty, it defaults to C<< qw<fetch exists delete> >>.
=cut
sub unimport {
shift;
my $hint = _detag($^H{+(__PACKAGE__)}) || 0;
- @_ = qw/fetch exists delete/ unless @_;
+ @_ = qw<fetch exists delete> unless @_;
$hint |= $bits{$_} for grep exists $bits{$_}, @_;
$^H |= 0x00020000;
$^H{+(__PACKAGE__)} = _tag($hint);
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 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.