File Coverage

blib/lib/SRS/EPP/Command/PayloadClass.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	12	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	43	18.6

package SRS::EPP::Command::PayloadClass;
{
  $SRS::EPP::Command::PayloadClass::VERSION = '0.22';
}

use Moose::Role;

sub payload_class {
	my $self = shift;
	my $class = ref $self;
	my $root_element = shift;
	my $xmlns = shift;
	our $payload_classes;
	if ( !$payload_classes->{$class} ) {
		$payload_classes->{$class} = {
			map {
				$_->can("xmlns")
					? ($_->action.":".$_->xmlns => $_)
					: ();
				}
				$self->plugins,
		};

		#print "payload classes for $class are: ".Dumper($payload_classes->{$class});
	}
	$payload_classes->{$class}{ $root_element.":".$xmlns };
}

sub REBLESS {
	my $self = shift;
	if ( my $epp = $self->message ) {
		my $payload = eval { $epp->message->argument->payload } or return;

		# print "payload is $payload\n";

		# ASSERT($payload->does("PRANG::Graph"));

		my $root_element = $payload->root_element;
		my $xmlns = $payload->xmlns;

		# print "looking for plugin that handles $root_element ($xmlns)\n";

		if (my $class = $self->payload_class($root_element, $xmlns)) {

			# print "reblessing $self into $class\n";
			bless $self, $class;
			no strict 'refs';
			$self->REBLESS if defined &{"${class}::REBLESS"};
		}
	}
}

1;