Help for this page

Select Code to Download


  1. or download this
    # So, how to get $Foo::Str without soft ref?
  2. or download this
    use strict;
package Foo;
...
print ${*{${$main::{$pack}}{$var}}{SCALAR}};
__END__
foo str
  3. or download this
    use strict;
$Foo::str = 'foo str';
my $class = 'Foo';
my $value = eval "\$$class\::str";
print $value,$/;
  4. or download this
    package Foo;

...
__END__
str: yup
bar: nope
  5. or download this
    $\=$/;
use strict;
...
Internals::
warnings::
DB::