Help for this page

Select Code to Download


  1. or download this
    ok 1 - +, tied hash
ok 2 - +=, normal hash
# Operation "=": no method found, argument in overloaded package Test 
+at /tmp/p line 52.
...
  2. or download this
       '=' => sub { bless [ @{$_[0]} ], 'Test' },
  3. or download this
    use overload
    '+'  => \&append,
    '+=' => \&append,
    '='  => => sub { bless [ @{$_[0]} ], 'Test' };