Acme::USIG - express the true nature of strict

Acme-USIG documentation Contained in the Acme-USIG distribution.

Index

Code Index:

NAME

Top

Acme::USIG - express the true nature of strict

SYNOPSIS

Top

 use Acme::USIG;
 use strict is gay;

 $foo = 1;
 print $Foo; # works no problem

Alternatively

 use Acme::USIG;
 use strict is cool;

 $foo = 1; # blows some pesky error

DISCUSSION

Top

Simply denounce strict as the false effort waster that it is, and have it get out of your way.

Inspired by a typo, made to work by cunning, used by fools.

BUGS

Top

Tramples over the gay and cool namespaces - this may cause problems should p5p ever choose to implement these for future pragmas.

SEE ALSO

Top

  use Acme::USIG;
  system('lynx', '-dump', is gay);

AUTHOR

Top

Richard Clamp <richardc@unixbeard.net>

COPYRIGHT

Top

Copyright (C) 2001, 2002, 2003 Richard Clamp. All Rights Reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Acme-USIG documentation Contained in the Acme-USIG distribution. 
package Acme::USIG;
use vars '$VERSION';
$VERSION = '1.04';

my $strict_import;
sub gay::is  {
    $strict_import ||= \&strict::import;
    local $^W = 0; # though it's unlikely that someone who thinks use
                   # strict is gay would be running -w, it's worth
                   # making sure

    *strict::import = sub { $^H };
    "http://web.archive.org/web/20010714061728/http://www.cookwood.com/cgi-bin/lcastro/perlbbs.pl?read=4700"
}

sub cool::is {
    local $^W = 0;
    *strict::import = $strict_import if $strict_import;
    qw( vars subs refs )
}

1;
__END__