lib/WebPAC/Path.pm

package WebPAC::Path;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT = qw/
        mk_base_path
/;

use File::Path;

sub mk_base_path {
        my ($path) = @_;

        my $base_path = $path;
        $base_path =~ s{/[^/]+$}{};

        if ( ! -e $base_path ) {
                mkpath $base_path;
                warn "# created $base_path\n";
        }

        return -e $base_path;
}

1;
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;