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	dpavlin	1202	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;