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

=head2 path_size

  my $path_size_bytes = $self->path_size( 'lib/path' );

=cut

sub path_size {
        my ($self,$path) = @_;
        $path .= ' ' . ( -s $path ) . ' bytes';
        warn "# path_size: $path";
        return $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	=head2 path_size
23
24	my $path_size_bytes = $self->path_size( 'lib/path' );
25
26	=cut
27
28	sub path_size {
29	my ($self,$path) = @_;
30	$path .= ' ' . ( -s $path ) . ' bytes';
31	warn "# path_size: $path";
32	return $path;
33	}
34
35	1;