Help for this page

Select Code to Download


  1. or download this
    my $META_HIDDEN = 1; 
sub META_HIDDEN : lvalue { $META_HIDDEN }
...
my $to = $self->abs_loc . 
  ( META_HIDDEN ? "/.$newname." : "/$newname." ) 
  . META_EXT;
  2. or download this
    my $META_HIDDEN = 1; 
sub META_HIDDEN : lvalue { $META_HIDDEN }
...
else {
 $to =  $self->abs_loc .  "/$newname.". META_EXT;
}