view release on metacpan or  search on metacpan

lib/App/GitFind/Searcher/FileSystem.pm  view on Meta::CPAN

# App::GitFind::Searcher::FileSystem - Search for files on disk
package App::GitFind::Searcher::FileSystem;

use 5.010;
use strict;
use warnings;

our $VERSION = '0.000002';

use parent 'App::GitFind::Searcher';
use Class::Tiny qw(repo searchbase);

use App::GitFind::Base;
use App::GitFind::Entry::OnDisk;
use File::Find::Object;
#use Path::Class;
use App::GitFind::PathClassMicro;

# Docs {{{1

=head1 NAME

App::GitFind::Searcher::FileSystem - Search for files on disk

=head1 SYNOPSIS

This is an L<App::GitFind::Searcher> that looks through a file system.

=cut

# }}}1

=head1 FUNCTIONS

=head2 run

See L<App::GitFind::Searcher/run>.

=cut

sub run {
    my ($self, $callback) = @_;

    my $findbase =
        App::GitFind::PathClassMicro::Dir->new($self->repo->workdir)->relative($self->searchbase);
    my $base_iter = File::Find::Object->new(
        {followlink=>true}, $findbase
    );

    while(defined(my $ffo = $base_iter->next_obj)) {
        my $entry = App::GitFind::Entry::OnDisk->new(-obj=>$ffo,
                                -searchbase=>$self->searchbase,
                                -findbase=>$findbase);
        $callback->($entry);
        # TODO prune and other control
        undef $entry;
    }
} #run()

=head2 BUILD

=cut

sub BUILD {
    my ($self, $hrArgs) = @_;
    unless($self->searchbase && $self->repo) {
        require Carp;
        Carp::croak 'Need a -searchbase' unless $self->searchbase;
        Carp::croak 'Need a -repo' unless $self->repo;
    }
} #BUILD()

1;
__END__
# vi: set fdm=marker: #