my $META_HIDDEN = 1; 
sub META_HIDDEN : lvalue { $META_HIDDEN }
my $META_EXT    = 'meta'; 
sub META_EXT    : lvalue { $META_EXT }

my $to;
if (META_HIDDEN){
 $to =  $self->abs_loc . "/.$newname.". META_EXT;
}
else {
 $to =  $self->abs_loc .  "/$newname.". META_EXT;
}