5 # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
14 use Data::Dump qw/dump/;
17 #use Devel::LeakTrace::Fast;
21 my $store_path = './';
22 my $store_plugin = 'YAML';
28 'store-path=s' => \$store_path,
29 'store-plugin=s' => \$store_plugin,
30 'create_dump!' => \$create_dump,
34 warn "## cleaning dump directory\n" if $debug;
37 my $path = $File::Find::name;
39 unlink($path) || die "can't remove $path: $!";
40 warn "## removed $path\n" if $debug;
46 my $server = CWMP::Server->new({
50 module => $store_plugin,
54 create_dump => $create_dump,
59 CWMP::Vendor->add_triggers;