git.rot13.org Git - webpac2/blob - lib/WebPAC/Path.pm

   1 package WebPAC::Path;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Exporter 'import';
   7 our @EXPORT = qw/
   8         mk_base_path
   9 /;
  10
  11 use File::Path;
  12
  13 sub mk_base_path {
  14         my ($path) = @_;
  15
  16         my $base_path = $path;
  17         $base_path =~ s{/[^/]+$}{};
  18
  19         if ( ! -e $base_path ) {
  20                 mkpath $base_path;
  21                 warn "# created $base_path\n";
  22         }
  23
  24         return -e $base_path;
  25 }
  26
  27 1;