Skip to content

Instantly share code, notes, and snippets.

@gfx

gfx/gist:222965

Created October 31, 2009 07:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gfx/222965 to your computer and use it in GitHub Desktop.
Save gfx/222965 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
package A;
sub DESTROY{ warn "DESTROY!" }
sub f{
my $a = bless {}, 'A';
goto &g;
}
sub g{
warn "g!";
}
f();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment