Guys, anyone familiar with this FileProp Store Method.. Im having Compilation Error whenever a value is stored into the tied hash. Run time error
sub STORE {
my ($self, $key, $value) = @_;
my $name = $self ->{name};
unless ($PROPS{$key} and -w $name){
croak "Can't set prop $key for $name";
}
if ($key eq 'name'){
croak "file $key exists" if -e $key;
rename $name=>$key;
$self->{name}=$key;
} elseif ($key eq 'mtime'){
utime ((stat $name)[8], $value, $name);