Die Dokumentation von UNIVERSAL ist das auch recht deutlich:

Quote

Code: (dl )

1
2
3
4
5
6
7

...
$sub      = eval { $ref->can("fandango") };
$ver      = $obj->VERSION;

# but never do this!
$is_io    = UNIVERSAL::isa($fd, "IO::Handle");
$sub      = UNIVERSAL::can($obj, "print");