sub FakeOO {
	eval "require $_[0]";
	bless \($_[0]), "FakeOO";
}
sub FakeOO::AUTOLOAD {
	my $pkg = ${+shift};
	$pkg->can($FakeOO::AUTOLOAD =~ /::(\w+)$/)->(@_);
}

my $scalar_util = FakeOO("Scalar::Util");

$scalar_util->looks_like_number(123);