lib/Frey/Path.pm

package Frey::Path;
use Moose::Role;
use File::Path;

=head1 NAME

Frey::Path - path manipulation role

=head2 mkbasepath

  $o->mkbasepath('/full/path/with/filename');

=cut

sub mkbasepath {
        my $self = shift;
        my $base_path = shift;
        $base_path =~ s{/[^/]+$}{};
        mkpath $base_path if ! -e $base_path;
}

1;
1	package Frey::Path;
2	use Moose::Role;
3	use File::Path;
4
5	=head1 NAME
6
7	Frey::Path - path manipulation role
8
9	=head2 mkbasepath
10
11	$o->mkbasepath('/full/path/with/filename');
12
13	=cut
14
15	sub mkbasepath {
16	my $self = shift;
17	my $base_path = shift;
18	$base_path =~ s{/[^/]+$}{};
19	mkpath $base_path if ! -e $base_path;
20	}
21
22	1;