sub DESTROY {
	my $self = shift;
	eval { store $self, DATA_FILE };
	die $@ if $@;
}