sub wants_foo_object 
{
    my $obj = shift;
    die unless $obj && ref($obj) eq "foo";
    #...
}