package GotoBug;

use strict;
use Fcntl;
#use vars qw( $VERSION @ISA );
#$VERSION = "1.00";

# use DynaLoader;
# @ISA = qw( DynaLoader );

# bootstrap GotoBug $VERSION;

# oops() and blam() should work identically to call_stack, but don't

sub oops { goto &call_stack; }
my $CS = 'call_stack';
sub blam  { goto &$CS; }
my $BS = 'spam';
sub boing { goto &$BS; }
sub spam { print "# [@_]\n"; return scalar @_; }

sub oops2 { goto &Fcntl::constant; }
my $CS2 = \&Fcntl::constant;
sub blam2  { goto &$CS2; }
my $BS2 = 'Fcntl::constant';
sub boing2 { goto &$BS2; }
sub spam2 { print "# [@_]\n"; return scalar @_; }

1;