* Randal L. Schwartz <[EMAIL PROTECTED]> [2003-06-10 18:39]:
> Ooops... forgot the other needed thing:
>
> sub blessed {
> my $thing = shift;
> return 0 unless defined $thing and ref $thing;
> eval { $thing->can("can") };
> return !$@;
> }
You don't need eval either.
sub blessed { not not UNIVERSAL::can(shift, "can") }
--
Regards,
Aristotle
_______________________________________________
templates mailing list
[EMAIL PROTECTED]
http://lists.template-toolkit.org/mailman/listinfo/templates
