5 # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
13 use Data::Dump qw/dump/;
16 #use Devel::LeakTrace::Fast;
20 my $store_path = './';
21 my $store_plugin = 'YAML';
27 'store-path=s' => \$store_path,
28 'store-plugin=s' => \$store_plugin,
29 'create_dump!' => \$create_dump,
33 warn "## cleaning dump directory\n" if $debug;
36 my $path = $File::Find::name;
38 unlink($path) || die "can't remove $path: $!";
39 warn "## removed $path\n" if $debug;
45 my $server = CWMP::Server->new({
49 module => $store_plugin,
53 create_dump => $create_dump,