Help for this page

Select Code to Download


  1. or download this
    my %hash;
tie %hash, 'main';
$hash{'test'} = bless [], 'Test';
  2. or download this
    $hash{'test'} += 3;
  3. or download this
    my $test = bless [], 'Test';
$test += 3;
...
tie %hash, 'main';
$hash{'test'} = bless [], 'Test';
$hash{'test'} = $hash{'test'} + 3;
  4. or download this
    #!/usr/bin/env perl

...
    $hash{'test'} += 3;
    is(3, $hash{'test'}[0]);
}; # ???