File Coverage

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

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package SRS::EPP::Command::PayloadClass;

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;