/[cwmp]/google/trunk/lib/CWMP/Methods.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Methods.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

google/lib/CWMP/Response.pm revision 71 by dpavlin, Wed Jun 20 23:35:04 2007 UTC google/trunk/lib/CWMP/Response.pm revision 141 by oleide, Sat Oct 27 17:57:40 2007 UTC
# Line 3  package CWMP::Response; Line 3  package CWMP::Response;
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6    
7  use base qw/Class::Accessor/;  use base qw/Class::Accessor/;
8  __PACKAGE__->add_accessor( qw/  __PACKAGE__->mk_accessors( qw/debug/ );
 debug  
 /);  
9    
10  use XML::Generator;  use XML::Generator;
11  use Carp qw/confess/;  use Carp qw/confess/;
# Line 99  sub GetParameterNames { Line 98  sub GetParameterNames {
98                          $X->ParameterPath( $cwmp, $ParameterPath ),                          $X->ParameterPath( $cwmp, $ParameterPath ),
99                          $X->NextLevel( $cwmp, $NextLevel ),                          $X->NextLevel( $cwmp, $NextLevel ),
100                  );                  );
101            });
102    }
103    
104    =head2 GetParameterValues {
105    
106      $response->GetParameterValues( $state, $ParameterPath, $NextLevel );
107    
108    =cut
109    
110    sub GetParameterValues {
111            my ( $self, $state, $ParameterPath, $NextLevel ) = @_;
112            $ParameterPath ||= '';  # all
113            $NextLevel ||= 0;               # all
114            warn "# GetParameterValues( '$ParameterPath', $NextLevel )\n" if $self->debug;
115            $self->xml( $state, sub {
116                    my ( $X, $state ) = @_;
117    
118                    $X->GetParameterValues( $cwmp,
119                            $X->ParameterPath( $cwmp, $ParameterPath ),
120                            $X->NextLevel( $cwmp, $NextLevel ),
121                    );
122          });          });
123  }  }
124    
Legend:
Removed from v.71  
changed lines
  Added in v.141
  ViewVC Help
Powered by ViewVC 1.1.26