On Mon, 9 Jun 2003, Tony Bowden wrote:
> Well it's a core module now so it's probably not that much of an issue
> just to make it a dependency.
Ha! I tried that argument with Andy with Test::More.
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
}
Mark.
(above code Copyright (c) 1997-2001 Graham Barr <[EMAIL PROTECTED]>)
--
#!/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
