my $fb = new Foobar;
$fb->Barfoo::thisone; # <- This is the line I'm not sure about. I know it works but I've never really seen subs called like this before. Your thoughts?

package Foobar;
sub new { bless { cow => 'moo' }, shift }

package Barfoo;
sub thisone {
	my $self = shift;
	print "cows go: $self->{cow}";
}