use Test::Simple tests => 4;
use UNIVERSAL::Acme;

package Blah;

sub new { bless [], shift }
sub can {
    "blah can't";
}

sub blah {
    "blah blah"
}

package main;

ok(1);
ok(UNIVERSAL::can(new Blah, 'thing') eq "blah can't");
ok(UNIVERSAL::blah(new Blah, 'thing') eq 'blah blah');
ok(UNIVERSAL::isa(new Blah, 'Blah'));