| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Version/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Version/File.pm |
package Version::File;
use strict;
use vars qw(@ISA);
use Version::Basic;
@ISA = qw(Version::Basic);
#*******************************************************
sub new {
my $class = shift;
my $self = {};
$self->{'FILE'} = shift;
my $mode = shift;
open(FFILE,"<".$self->{'FILE'});
my $text = join("",<FFILE>);
close(FFILE);
$self->{'OBJ'} = $self->deserialize($text,$mode);
bless($self,$class);
return($self);
}
#******************************************************
sub store {
my $self = shift;
open(FFILE,">".$self->{'FILE'});
print FFILE $self->serialize( $self->{'OBJ'} );
close(FFILE);
}
#******************************************************
sub deserialize {
my $self = shift;
my $text = shift;
my $VAR1;
eval($text);
return($VAR1);
}
#******************************************************
sub serialize {
my $self = shift;
return(Dumper($self->{'OBJ'}));
}
1;