119 |
$prop->{ $p } ||= []; |
$prop->{ $p } ||= []; |
120 |
$template->{ $p } = $prop->{ $p }; |
$template->{ $p } = $prop->{ $p }; |
121 |
} |
} |
|
|
|
|
warn dump( $prop ); |
|
122 |
} |
} |
123 |
|
|
124 |
|
|
134 |
my $sock = $prop->{client}; |
my $sock = $prop->{client}; |
135 |
confess "no sock in ", ref( $self ) unless $sock; |
confess "no sock in ", ref( $self ) unless $sock; |
136 |
|
|
137 |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )" if defined($prop->{default_queue}); |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue}); |
|
|
|
|
warn "sock = ",dump( $sock ); |
|
138 |
|
|
139 |
my $session = CWMP::Session->new({ |
my $session = CWMP::Session->new({ |
140 |
sock => $sock, |
sock => $sock, |