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\n";
        return $path;
}

no Moose::Role;

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	dpavlin	682	=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	dpavlin	1088	warn "# path_size: $path\n";
32	dpavlin	682	return $path;
33			}
34
35	dpavlin	1133	no Moose::Role;
36
37	dpavlin	224	1;