=head1 VERSION
-Version 0.06
+Version 0.07
=cut
our $VERSION;
BEGIN {
- $VERSION = '0.06';
+ $VERSION = '0.07';
}
=head1 SYNOPSIS
# or "print(foo('wut'))" otherwise
} # ... but function calls will fail at run-time if you don't
# actually define foo somewhere
-
+
foo; # BANG
=head1 DESCRIPTION
use B::Keywords;
-use Variable::Magic 0.31 qw/wizard cast dispell getdata/;
+use Variable::Magic 0.31 qw<wizard cast dispell getdata>;
BEGIN {
unless (Variable::Magic::VMG_UVAR) {
@B::Keywords::Functions,
'DATA',
} = ();
-delete @core{qw/my local/};
+delete @core{qw<my local>};
BEGIN {
- *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'
+ *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011_002 ? 0 : 1) . '}'
}
my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) };
L<B::Keywords>.
-L<Carp> (standard since perl 5), L<XSLoader> (since 5.006).
+L<Carp> (standard since perl 5), L<XSLoader> (since 5.6.0).
=head1 AUTHOR