fix pod

[perl-cwmp.git] / lib / CWMP / Response.pm

diff --git a/lib/CWMP/Response.pm b/lib/CWMP/Response.pm
index 6b2a866..353a194 100644 (file)
--- a/lib/CWMP/Response.pm
+++ b/lib/CWMP/Response.pm
@@ -66,7 +66,7 @@ sub GetRPCMethods {
        });
 };
 
-=head2 Reboot {
+=head2 Reboot
 
   $response->Reboot( $state );
 
@@ -80,7 +80,7 @@ sub Reboot {
        });
 }
 
-=head2 GetParameterNames {
+=head2 GetParameterNames
 
   $response->GetParameterNames( $state, $ParameterPath, $NextLevel );
 
@@ -101,6 +101,27 @@ sub GetParameterNames {
        });
 }
 
+=head2 GetParameterValues
+
+  $response->GetParameterValues( $state, $ParameterPath, $NextLevel );
+
+=cut
+
+sub GetParameterValues {
+       my ( $self, $state, $ParameterPath, $NextLevel ) = @_;
+       $ParameterPath ||= '';  # all
+       $NextLevel ||= 0;               # all
+       warn "# GetParameterValues( '$ParameterPath', $NextLevel )\n" if $self->debug;
+       $self->xml( $state, sub {
+               my ( $X, $state ) = @_;
+
+               $X->GetParameterValues( $cwmp,
+                       $X->ParameterPath( $cwmp, $ParameterPath ),
+                       $X->NextLevel( $cwmp, $NextLevel ),
+               );
+       });
+}
+
 =head2 xml
 
 Used to implement methods which modify just body of soap message.