if( my $foo = bar() ) {
   # $foo isa Foo
} else {
   # $foo isa Error
}