- carp 'no evil; interpreted as no evil ":strict". This will change in a future version of Acme::Evil' unless $strict_arg;
- $strict = 1; # To be changed when other modes are implemented
+ my $disable_arg = grep /^:disable/, @_;
+ carp 'no evil; interpreted as no evil ":strict". This will change in a future version of Acme::Evil' unless $strict_arg || $disable_arg;
+ $strict = 1 unless $disable_arg; # To be changed when other modes are implemented
+ $strict = 0 if $disable_arg;