File Coverage

blib/lib/SRS/EPP/Command/Transfer/Contact.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package SRS::EPP::Command::Transfer::Contact;
2             {
3             $SRS::EPP::Command::Transfer::Contact::VERSION = '0.22';
4             }
5              
6 1     1   3707 use Moose;
  1         3  
  1         10  
7             extends 'SRS::EPP::Command::Transfer';
8 1     1   13219 use SRS::EPP::Session;
  0            
  0            
9             use MooseX::Params::Validate;
10              
11             # for plugin system to connect
12             sub xmlns {
13             XML::EPP::Contact::Node::xmlns();
14             }
15              
16             sub process {
17             my $self = shift;
18            
19             my ( $session ) = pos_validated_list(
20             \@_,
21             { isa => 'SRS::EPP::Session' },
22             );
23            
24             return $self->make_response(code => 2101);
25             }
26              
27             1;