Revision 19727dec
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/File/Object.pm | ||
|---|---|---|
|
|
||
|
use Rose::Object::MakeMethods::Generic (
|
||
|
scalar => [ qw() ],
|
||
|
'scalar --get_set_init' => [ qw(db_file loaded id version newest) ],
|
||
|
'scalar --get_set_init' => [ qw(db_file loaded id file_version version newest) ],
|
||
|
);
|
||
|
|
||
|
#use SL::DB::Helper::Attr;
|
||
| ... | ... | |
|
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 delete_file_version {
|
||
|
SL::File->delete(dbfile => $_[0]->loaded_db_file, file_version => $_[0]->file_version )
|
||
|
}
|
||
|
|
||
|
sub purge {
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
|
||
|
sub init_db_file { die 'must always have a db file'; }
|
||
|
sub init_loaded { 0 }
|
||
|
sub init_id { 0 }
|
||
|
sub init_version { 0 }
|
||
|
sub init_newest { 1 }
|
||
|
sub init_db_file { die 'must always have a db file'; }
|
||
|
sub init_loaded { 0 }
|
||
|
sub init_id { 0 }
|
||
|
sub init_version { 0 }
|
||
|
sub init_file_version { undef }
|
||
|
sub init_newest { 1 }
|
||
|
|
||
|
1;
|
||
|
|
||
| ... | ... | |
|
|
||
|
=back
|
||
|
|
||
|
Additional are there special methods. If the Object is created by SL::File::get_all_versions()
|
||
|
or by "$object->versions"
|
||
|
it has a version number. So the different mtime, filepath or content can be retrieved:
|
||
|
Additional are there special methods. If the Object is created by
|
||
|
C<SL::File::get_all_versions()> or by C<$object->versions>. It has a version
|
||
|
number in C<version> and a version object in C<file_version> of type
|
||
|
C<SL::DB::FileVersion>. So the different mtime, filepath or content can be
|
||
|
retrieved:
|
||
|
|
||
|
=over 4
|
||
|
|
||
Auch abrufbar als: Unified diff
File: Löschen über die guid der Version