package Foo;
our @ISA = qw(Exporter Phoo);

our $Bar = 6;
my $Whig = 5;

sub new {
  my $count if 0;  $count++;
  my $self = { };
  $self->{baz} = 4;
  return bless($self, shift());
}

sub foo {
  my $self = shift;
  my $arg = shift;
  local $Whig = 3;
  $self->my_Phoo_func($Whig, $arg, $/);

}