21 |
use File::Slurp; |
use File::Slurp; |
22 |
|
|
23 |
use CWMP::Request; |
use CWMP::Request; |
24 |
use CWMP::Response; |
use CWMP::Methods; |
25 |
use CWMP::Store; |
use CWMP::Store; |
26 |
|
|
27 |
=head1 NAME |
=head1 NAME |
192 |
push @args, @a; |
push @args, @a; |
193 |
} |
} |
194 |
|
|
195 |
my $response = CWMP::Response->new({ debug => $self->debug }); |
my $response = CWMP::Methods->new({ debug => $self->debug }); |
196 |
|
|
197 |
if ( $response->can( $dispatch ) ) { |
if ( $response->can( $dispatch ) ) { |
198 |
warn ">>> dispatching to $dispatch\n"; |
warn ">>> dispatching to $dispatch\n"; |