X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FResponse.pm;h=10303b2271d49014427bc322108a23e49ba0ab6d;hp=6b2a86693d6dfa445cbdf14afaec628e17008b3f;hb=b1f0ff50033a9e8f2fbc75828452baa41ff83608;hpb=581d876052dcb22f98f52858860e6e999ca1d08a

diff --git a/lib/CWMP/Response.pm b/lib/CWMP/Response.pm
index 6b2a866..10303b2 100644
--- a/lib/CWMP/Response.pm
+++ b/lib/CWMP/Response.pm
@@ -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.