File Coverage

blib/lib/Patro/N3.pm

Criterion	Covered	Total	%
statement	23	33	69.7
branch	0	8	0.0
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	31	50	62.0

package Patro::N3;
use Devel::GlobalDestruction;
use strict;
use warnings;

# Patro::N3. Proxy class for CODE type references

use Carp ();
use Socket ();
use Data::Dumper ();

use overload
    '&{}' => sub { ${$_[0]}->{sub} },
    'nomethod' => \&Patro::LeumJelly::overload_handler,
    ;

sub DESTROY {
    my $self = shift;
    return if in_global_destruction();
    if ($$self->{_DESTROY}++) {
	return;
    }
    my $socket = $$self->{socket};
    if ($socket) {

	# XXX - shouldn't disconnect on every object destruction,
	# only when all of the wrapped objects associated with a
	# client have been destroyed, or during global
	# destruction

	my $response = Patro::LeumJelly::proxy_request(
	    $$self,
	    { id => $$self->{id},
	      topic => 'META',
	      #command => 'disconnect' } );
	      command => 'destroy' } );
	if ($response->{disconnect_ok}) {
	    close $socket;
	    delete $$self->{socket};
	}
    }
}

# is an AUTOLOAD method useful here?

############################################################

1;