r286@brr: dpavlin | 2007-11-26 00:59:42 +0100

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

diff --git a/lib/CWMP/Request.pm b/lib/CWMP/Request.pm
index ef8c322..4ca8d45 100644 (file)
--- 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