> use B qw( svref_2object );
>
> sub refcount {
> my $sv = svref_2object( $_[0] );
> return $sv->REFCNT - 1; # Because @_ refers to it too
> }This sounds like a very good idea to me, I was looking for a module like this in my last job. I would suggest a two modules though say Devel::Refcount which exports the refcount function and the Test::Refcount for writing tests. Ivan Wills -- email/jabber: [EMAIL PROTECTED] / / _ _ / \ / | | | | / \/ \_| | |
