+ croak "Cannot load evil module when \"no evil ':strict'\" is in effect" if %wants_strict;
+
+ my $hinthash = (caller 0)[10] || {};
+ croak "Current module requested no evilness" if $hinthash->{$LAX};
+
+ $hinthash = (caller 3)[10] || {};
+ croak "Cannot load evil module when parent requested \"no evil ':lax'\"" if $hinthash->{$LAX};
+
+ my $level = 4;
+ my @caller;
+ while (@caller = caller $level) {
+ $hinthash = $caller[10] || {};
+ croak "Cannot load evil module when ancestor requested \"no evil ':intermediate'\""
+ if $hinthash->{$INTERMEDIATE};
+ $level++;
+ }
+