package indirect;
-use 5.008;
+use 5.008001;
use strict;
use warnings;
=head1 VERSION
-Version 0.19
+Version 0.21
=cut
our $VERSION;
BEGIN {
- $VERSION = '0.19';
+ $VERSION = '0.21';
}
=head1 SYNOPSIS
}
try { ... }; # warns
- no indirect ':fatal';
+ no indirect ':fatal'; # or 'FATAL', or ':Fatal' ...
if (defied $foo) { ... } # croaks, note the typo
# From the command-line
=head1 METHODS
-=head2 C<< unimport [ hook => $hook | ':fatal' ] >>
+=head2 C<< unimport [ hook => $hook | ':fatal', 'FATAL', ... ] >>
Magically called when C<no indirect @opts> is encountered.
Turns the module on.
=item *
-If it's the string C<':fatal'>, the compilation will croak on the first indirect syntax met.
+If it is a string that matches C</^:?fatal$/i>, the compilation will croak on the first indirect syntax met.
=item *
my $arg = shift;
if ($arg eq 'hook') {
$hook = shift;
- } elsif ($arg eq ':fatal') {
+ } elsif ($arg =~ /^:?fatal$/i) {
$hook = sub { die msg(@_) };
}
last if $hook;
=head1 DEPENDENCIES
-L<perl> 5.8.
+L<perl> 5.8.1.
L<XSLoader> (standard since perl 5.006).
=head1 COPYRIGHT & LICENSE
-Copyright 2008-2009 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 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.