package A;

sub new {
	bless {}, shift;
}

sub doit {
	my $self = shift;
	warn 'A::doit';
}

1;