From 3e32a398fbc753bc6cf4d9bcb6c855a670c2f7dc Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 26 Nov 2007 00:28:24 +0000
Subject: [PATCH]  r286@brr:  dpavlin | 2007-11-26 00:59:42 +0100  added rule
 for GetParameterAttributesResponse

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@236 836a5e1a-633d-0410-964b-294494ad4392
---
 lib/CWMP/Request.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index ef8c322..4ca8d45 100644
--- a/lib/CWMP/Request.pm
+++ b/lib/CWMP/Request.pm
@@ -103,6 +103,17 @@ push @$rules,
 			$state->{_trigger} = 'GetParameterNamesResponse';
 		};
 	
+=head2 GetParameterAttributesResponse
+
+=cut
+
+push @$rules,
+		'GetParameterAttributesResponse' => sub {
+			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
+			warn dump( $tag_name, $tag_hash, $context );
+			$state->{_trigger} = 'GetParameterAttributesResponse';
+		};
+
 =head2 Fault
 
 =cut
-- 
2.20.1