exodist · October 22, 2015 18:29
diff --git a/test.pl b/test.pl
 use strict;
 use warnings;

 package aaa;
 sub foo { print "A\n" }

 package aab;
 sub foo { print "B\n" }

 package main;

 my $thing = 'aaa';
 $thing++->foo;
 $thing++->foo;

 __END__

 A
 B
	use strict;
	use warnings;

	package aaa;
	sub foo { print "A\n" }

	package aab;
	sub foo { print "B\n" }

	package main;

	my $thing = 'aaa';
	$thing++->foo;
	$thing++->foo;

	__END__

	A
	B