The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
#
# This code is used by lib/perl5db.t !!!
#

my $i;
sub foo () : lvalue { $i }
foo = 1;
print defined foo ? "foo is defined" : "foo is still undef", "\n";