lib/Frey/File.pm

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

use File::Slurp qw//;
use Carp qw/confess/;

=head2 read_file

L<File::Slurp/read_file>

=cut

sub read_file { shift ; File::Slurp::read_file( @_ ) }

=head2 write_file

L<File::Slurp/write_file>

=cut

sub write_file { shift ; File::Slurp::write_file( @_ ) }

=head2 dir_extension

Returns array of full paths with some extension

  my @files = $self->dir_extension( 'var/directory/', qw/\.(ya?ml)$/ );

=cut

sub dir_extension {
        my ($self,$path,$extension_regex) = @_;

        confess "extension not regex" unless ref($extension_regex) eq 'Regexp';

        opendir(my $dir, $path) || die "can't opendir $path: $!";
        my @files = map { "$path/$_" } sort grep { $extension_regex && -f "$path/$_" } readdir($dir);
        closedir $dir;
        return @files;
}

sub strip_path_extension {
        my ( $self, $path ) = @_;
        $path =~ s{^(?:.*/)?([^/]+)\.[^/]+$}{$1};
        return $path;
}

no Moose::Role;

1;
1	dpavlin	719	package Frey::File;
2			use Moose::Role;
3
4			use File::Slurp qw//;
5	dpavlin	972	use Carp qw/confess/;
6	dpavlin	719
7	dpavlin	818	=head2 read_file
8
9			L<File::Slurp/read_file>
10
11			=cut
12
13	dpavlin	721	sub read_file { shift ; File::Slurp::read_file( @_ ) }
14	dpavlin	818
15			=head2 write_file
16
17			L<File::Slurp/write_file>
18
19			=cut
20
21	dpavlin	721	sub write_file { shift ; File::Slurp::write_file( @_ ) }
22	dpavlin	719
23	dpavlin	818	=head2 dir_extension
24
25	dpavlin	972	Returns array of full paths with some extension
26	dpavlin	818
27	dpavlin	972	my @files = $self->dir_extension( 'var/directory/', qw/\.(ya?ml)$/ );
28
29	dpavlin	818	=cut
30
31			sub dir_extension {
32	dpavlin	972	my ($self,$path,$extension_regex) = @_;
33	dpavlin	818
34	dpavlin	972	confess "extension not regex" unless ref($extension_regex) eq 'Regexp';
35
36	dpavlin	818	opendir(my $dir, $path) \|\| die "can't opendir $path: $!";
37	dpavlin	972	my @files = map { "$path/$_" } sort grep { $extension_regex && -f "$path/$_" } readdir($dir);
38	dpavlin	818	closedir $dir;
39			return @files;
40			}
41
42	dpavlin	972	sub strip_path_extension {
43			my ( $self, $path ) = @_;
44			$path =~ s{^(?:.*/)?([^/]+)\.[^/]+$}{$1};
45			return $path;
46			}
47
48	dpavlin	1133	no Moose::Role;
49
50	dpavlin	719	1;