package Test;

sub foo {};

package main;

if (Test->can('foo')) {
    print "Hardcoded can works!\n";
}

my $t = 'Test';
if ($t->can('foo')) {
    print "Variable can works!\n";
}