use strict;
use warnings;

if (exists &FOOBAZ::bar) {
    print "bar exists in foo\n";
}
if (FOOBAZ->can("bar")) {
    print "FOOBAZ can do bar\n";
}

package FOO;

sub bar {
}

package FOOBAZ;
use base("FOO");