61 |
$log->info("created ", $self->path); |
$log->info("created ", $self->path); |
62 |
} |
} |
63 |
|
|
64 |
|
return 1; |
65 |
} |
} |
66 |
|
|
67 |
|
|
82 |
$log->logdie("need id") unless defined $id; |
$log->logdie("need id") unless defined $id; |
83 |
$log->logdie("need ds") unless $ds; |
$log->logdie("need ds") unless $ds; |
84 |
|
|
85 |
$log->debug("id: $id ds = ",dump($ds)); |
$log->debug("id: $id ds = ",sub { dump($ds) }); |
86 |
|
|
87 |
my $hash = $self->ds_to_hash( $ds, 'sorted' ) || return; |
my $hash = $self->ds_to_hash( $ds, 'sorted' ) || return; |
88 |
|
|
151 |
} |
} |
152 |
|
|
153 |
$log->info("over with sorted lists"); |
$log->info("over with sorted lists"); |
154 |
|
|
155 |
|
return 1; |
156 |
} |
} |
157 |
|
|
158 |
|
|