Help for this page

Select Code to Download


  1. or download this
    my %hash;
tie( %hash, "Tie::Hash::Stack" );

print defined( %hash ) ? "ok" : "not ok";
  2. or download this
    my %hash;
tie( %hash, "Tie::Hash::Stack" );

print ( %hash ) ? "ok" : "not ok";
  3. or download this
    my %hash;
my $obj = tie( %hash, "Tie::Hash::Stack" );

print defined( $obj ) ? "ok" : "not ok";
# or simply $obj ? "ok" : "not ok";