Help for this page
sub _can_write { my $path = shift; ... the installation may fail due to insufficient permissions. . # ...
sub _can_write { my $path = shift; ... return 1 if -w $path; # ...