Skip to content

Instantly share code, notes, and snippets.

@vovkasm
Created November 12, 2012 10:17
Show Gist options
  • Save vovkasm/4058501 to your computer and use it in GitHub Desktop.
Save vovkasm/4058501 to your computer and use it in GitHub Desktop.
#!perl
while (1) {
my $o = bless {}, 'main';
test({});
$o->test;
}
sub test { &test2; }
sub test2 { ref($_[0]) && eval { $_[0]->isa(__PACKAGE__) }; }
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment