Select Code to Download

#!/usr/bin/perl -w

use 5.011;
...
my $return3 = archive3();
say "return is $return3";
__END__

$ ./3.archive.pl 
path1 is /home/bob/1.scripts/pages/1.qy
parent2 is /home/bob/1.scripts/pages
...
 to /tmp/backup_2elt_b/grandfather: No such file or directory at templ
+ate_stuff/utils2.pm line 32.
cannot remove path when cwd is /tmp/backup_2elt_b/grandfather for /tmp
+/backup_2elt_b:  at /usr/share/perl/5.26/File/Temp.pm line 1583.
$

sub archive1 {
  use warnings;
  use 5.011;
...
  my $b = "dummy";
  return $b;
}

$ pwd
/home/bob/Documents/html_template_data
$ ls
3.values.ini  example3.ini
$

$ ./3.archive.pl 
...
: No such file or directory at template_stuff/utils2.pm line 80.
$

$ ./3.archive.pl 
path1 is /home/bob/1.scripts/pages/1.qy
...

$

EXCEPTION HANDLING

...
    msg — a string combining the above data and a Carp-like short stac
+k trace

Exception objects will stringify as the msg field.

    my $path3 = path($parent1, $file);
    say "path 3 is $path3";
    #my $path5 = path($path3)->assert( sub { $path3->exists } );
    #say "path 5 is $path5";