28 |
my $class = shift; |
my $class = shift; |
29 |
my $self = $class->SUPER::new( @_ ); |
my $self = $class->SUPER::new( @_ ); |
30 |
|
|
31 |
warn "created XML::Generator object" if $self->debug; |
warn "created XML::Generator object\n" if $self->debug; |
32 |
|
|
33 |
return $self; |
return $self; |
34 |
} |
} |
37 |
my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ]; |
my $cwmp = [ cwmp => 'urn:dslforum-org:cwmp-1-0' ]; |
38 |
my $soap = [ soap => "http://schemas.xmlsoap.org/soap/envelope/" ]; |
my $soap = [ soap => "http://schemas.xmlsoap.org/soap/envelope/" ]; |
39 |
|
|
40 |
=head2 Inform |
=head2 InformResponse |
41 |
|
|
42 |
$response->Inform( $state ); |
$response->InformResponse( $state ); |
43 |
|
|
44 |
=cut |
=cut |
45 |
|
|
46 |
sub Inform { |
sub InformResponse { |
47 |
my ( $self, $state ) = @_; |
my ( $self, $state ) = @_; |
48 |
$self->xml( $state, sub { |
$self->xml( $state, sub { |
49 |
my ( $X, $state ) = @_; |
my ( $X, $state ) = @_; |