From: Dobrica Pavlinusic Date: Mon, 26 Nov 2007 00:28:24 +0000 (+0000) Subject: r286@brr: dpavlin | 2007-11-26 00:59:42 +0100 X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=3e32a398fbc753bc6cf4d9bcb6c855a670c2f7dc;ds=sidebyside 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 --- 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