# Bar.pm
use strict;
use warnings;
use 5.010;

package Bar;

# Installs a method called bar
sub import {
	$^H{"Foo/bar"} = 'Bar/bar';
}

sub unimport {
	delete $^H{"Foo/bar"};
}

sub bar {
	print "Calling method bar from package Bar\n";
}

1;