>>>>> On Wed, 02 Aug 2000 23:23:55 -0700, Peter Scott <[EMAIL PROTECTED]> said:
> can anyone enumerate circumstances when you *cannot* currently achieve
> something desirable under one of the strictnesses?
Just as a reference, in my own code I find these....
This is borrowed from fields.pm:
no strict "refs";
my $self = bless [\%{"$class\::FIELDS"}], $class;
This is a similar construct as in base.pm. (Note, that base.pm does
not come with strict in effect.)
no strict 'refs';
unless (defined ${"$otherclass\::VERSION"}) {
This is something where other languages would prefer OO programming
and have $cin be a method name instead of a subroutine name and $Lmgr
be an object.
if (substr($cin,0,1) eq "&") {
substr($cin,0,1) = "";
no strict 'refs';
$cout = &{$cin}($Lmgr);
} else {
If you program with CGI.pm and want to handle HTTP-UPLOAD feature, you
need something like this. (Note: I haven't looked into CGI.pm for
ages, maybe this has changed in the meantime)
if ($handle = $req->param('HTTPUPLOAD')) {
no strict;
local $/;
$content = <$handle>;
close $handle;
--
andreas
