Front page | perl.perl5.porters |
Postings from December 2009
On Mon, Dec 28, 2009 at 6:39 AM, <hv@crypt.org> wrote:
> FWIW I have copies of this scattered around various codebases:
> sub _isa {
> my($val, $class) = @_;
> eval { $val->can('isa') }
> ? $val->isa($class)
> : UNIVERSAL::isa($val, $class);
> }
>
Why isn't that just
eval { $val->isa($class) }
Are you doing
_isa($val, 'ARRAY')
instead of
eval { @$val; 1 }
?
Thread Previous
|
Thread Next