码龄 14 年，只会点儿皮毛，想整点儿干货

package Geek;

sub new { bless { map +($_ => 0xFF), qw/Laziness Impatience Hubris/ }, shift }

sub code {
    print "Coding...\n";
    sleep 1;
    
    our $@;
    eval 'die "Server on fire! But it\'s not my fault!"' if rand > 0.3;
    die $@ if $@;
    
    no strict 'refs';
    *{__PACKAGE__ . '::code'} = sub { print "Perfection achieved!\n" };
    goto &code;
}

1;

Geek->new->code;

Serendipity is not mere chance, but the silent reward of a mind that stays curious enough to notice what others overlook.