add class method orderTypes and fix POD nits

[Net-Ikano.git] / lib / Net / Ikano.pm

diff --git a/lib/Net/Ikano.pm b/lib/Net/Ikano.pm
index ab62bf4..879e8ee 100644 (file)
--- a/lib/Net/Ikano.pm
+++ b/lib/Net/Ikano.pm
@@ -38,13 +38,15 @@ our $AUTOLOAD;
               'keyid' => $your_ikano_api_keyid,
               'password'  => $your_ikano_admin_user_password,
               'debug' => 1 # remove this for prod
-              'reqpreviewonly' => 1 # remove this for prod
-              'minimalQualResp' => 1 # on quals, return pairs of ProductCustomId+TermsId only
-              'minimalOrderResp' => 1 # return minimal data on order responses
-                            );
-    
+               'reqpreviewonly' => 1 # remove this for prod
+               'minimalQualResp' => 1 # on quals, return pairs of ProductCustomId+TermsId only
+               'minimalOrderResp' => 1 # return minimal data on order responses
+        );
+
 =head1 SUPPORTED API METHODS
 
+=over 4
+
 =item ORDER
 
 NOTE: supports orders by ProductCustomId only
@@ -126,6 +128,8 @@ $ikano->ACCOUNTSTATUSCHANGE(( {
            DSLServiecId => 123,
        } );
 
+=back
+
 =cut
 
 sub new {
@@ -254,9 +258,10 @@ sub req_PASSWORDCHANGE {
 
 sub resp_PASSWORDCHANGE {
    my ($self, $resphash, $reqhash) = (shift, shift);
-   return "invalid change password response" 
-       unless defined $resphash->{ChangePasswordResponse};
-   return $resphash->{ChangePasswordResponse};
+   return "invalid change password response"
+      unless defined $resphash->{ChangePasswordResponse}
+         && defined $resphash->{ChangePasswordResponse}->{Customer};
+   $resphash->{ChangePasswordResponse}->{Customer};
 }
 
 sub req_PREQUAL {
@@ -280,6 +285,10 @@ sub resp_PREQUAL {
     return $resphash->{PreQualResponse};
 }
 
+sub orderTypes {
+  @orderType;
+}
+
 sub AUTOLOAD {
     my $self = shift;