Today’s bit of black perl
use 5.010;
{
package F;
sub new { bless {}, shift }
sub me { $_[0] = 'surprise!' }
}
my $f = F->new;
say $f;
$f->me;
say $f;
Output:
F=HASH(0x7f9daa025c80)
surprise!
Teehee…
use 5.010;
{
package F;
sub new { bless {}, shift }
sub me { $_[0] = 'surprise!' }
}
my $f = F->new;
say $f;
$f->me;
say $f;
Output:
F=HASH(0x7f9daa025c80)
surprise!
Teehee…