Select Code to Download

use strict;
use warnings;
...
    die "not an object" unless blessed($obj);
    die "not a foo" unless $obj->isa('foo');
}