view release on metacpan or  search on metacpan

lib/DBIx/Migration/Directories/Build/Base.pm  view on Meta::CPAN

    
    return $to;
}

sub process_files_by_dir {
    my($self, $dir) = @_;
    my $blib = File::Spec->catdir($self->blib, $dir);
    File::Path::mkpath($blib);
    my $dir_files = $self->rscan_dir($dir, sub { -f($_) && !m{/CVS|\.svn/}});
    foreach my $i (@$dir_files) {
        $self->copy_if_modified(
            from    => $i,
            to      => File::Spec->catfile($self->blib, $i)
        );
    }
}

sub build_dirs {
    my $self = shift;
    my $dirs = $self->{properties}->{build_dirs} || [];