On Tue, 10 Jun 2003, Mark Fowler wrote:
> Seriously, the code isn't that hard:
>
> sub blessed ($) {
> local($@, $SIG{__DIE__}, $SIG{__WARN__});
> length(ref($_[0]))
> ? eval { $_[0]->a_sub_not_likely_to_be_here }
> : undef
> }
Ooops, mispaste...I missed the vital method that makes that work:
sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }
--
#!/usr/bin/perl -T
use strict;
use warnings;
print q{Mark Fowler, [EMAIL PROTECTED], http://twoshortplanks.com/};
_______________________________________________
templates mailing list
[EMAIL PROTECTED]
http://lists.template-toolkit.org/mailman/listinfo/templates
