/usr/local/CPAN/Padre-Plugin-Swarm/Padre/Swarm/Callback.pm

• package Padre::Swarm::Callback
  • GENERATE
  • DESTROY
  • AUTOLOAD
• EOF

package Padre::Swarm::Callback;

use strict;
use warnings;
use Padre::Plugin::Swarm ();

use vars '$AUTOLOAD';

my %callbacks = ();
my $id        = 0;

sub GENERATE {
	my ($instance,@args) = @_;
	my $signature = $id++;
	$callbacks{$signature} = [$instance,\@args];
	return bless \$signature, __PACKAGE__;
}

sub DESTROY {
	my $self = shift;
	delete $callbacks{$$self};
}

sub AUTOLOAD {
	my $self = shift;
	my $cb = $callbacks{$$self};
	my ($instance,$args) = @$cb;
	my $name = $AUTOLOAD;

	# strip fully-qualified portion
	$name =~ s/.*://;

	my $callback = sub {
		$instance->$name( @$args )
	};
	if ( Padre::Plugin::Swarm::DEBUG ) {
		warn "Curried call on $instance -> $name";
	}
	return $callback;
}

1;