Lazy Code (child method called from parent constructor):

use esmith::AD;
use strict;

my $ad=esmith::AD->new();

warn "User exists\n" if ($ad->doesUserExist('greg'));


Proper code (child method called from child constructor):

use esmith::AD::User;
use strict;

my $ad=esmith::AD::User->new();

warn "User exists\n" if ($ad->doesUserExist('greg'));