$_[0]->loaded_db_file->file_type;
}
-sub file_name {
- $_[0]->loaded_db_file->file_name;
-}
-
sub object_type {
$_[0]->loaded_db_file->object_type;
}
SL::File->delete(dbfile => $_[0]->loaded_db_file, last => 1 )
}
+sub delete_version {
+ SL::File->delete(dbfile => $_[0]->loaded_db_file, version => $_[0]->version )
+}
+
sub purge {
SL::File->delete(dbfile => $_[0]->loaded_db_file, all_but_notlast => 1 )
}