File Coverage

blib/lib/SRS/EPP/SRSResponse.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              
2             package SRS::EPP::SRSResponse;
3             {
4             $SRS::EPP::SRSResponse::VERSION = '0.22';
5             }
6              
7 3     3   4344 use Moose;
  3         13  
  3         23  
8              
9             extends 'SRS::EPP::Message';
10              
11 3     3   19276 use XML::SRS;
  0            
  0            
12             has "+message" =>
13             isa => "XML::SRS::Result|XML::SRS::Error",
14             handles => [qw(action_id)],
15             ;
16              
17             sub ids {
18             my $self = shift;
19             $self->message->results->[0]->result_id;
20             }
21              
22             1;