r286@brr: dpavlin | 2007-11-26 00:59:42 +0100
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 26 Nov 2007 00:28:24 +0000 (00:28 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 26 Nov 2007 00:28:24 +0000 (00:28 +0000)
 added rule for GetParameterAttributesResponse

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@236 836a5e1a-633d-0410-964b-294494ad4392

lib/CWMP/Request.pm

index ef8c322..4ca8d45 100644 (file)
@@ -103,6 +103,17 @@ push @$rules,
                        $state->{_trigger} = 'GetParameterNamesResponse';
                };
        
                        $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
 =head2 Fault
 
 =cut