Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
package Bar;
sub new {bless ['barbar'], $_[0]};
use overload '""' => sub {return $_[0]->[0]};
  2. or download this
    before: Foo
object: barbar
...
before: Foo
object: barbar
after:  Bar
  3. or download this
    before: Foo
object: barbar
...
before: Bar
object: barbar
after:  Bar