# 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
delete @core{qw<my local>};
BEGIN {
- *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'
+ *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011002 ? 0 : 1) . '}'
}
my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) };