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