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

my $to = $self->abs_loc . 
  ( META_HIDDEN ? "/.$newname." : "/$newname." ) 
  . META_EXT;