package Example::Foo::One;

use strict;
use warnings;

sub new { 
    my $self = shift;
    print "Calling Example::Foo::One::new\n";
    return bless {}, $self;
}

1;