File Coverage

blib/lib/File/Find/CaseCollide.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	46	49	93.8

package File::Find::CaseCollide;
$File::Find::CaseCollide::VERSION = '0.0.1';
use strict;
use warnings;
use 5.014;
use File::Find::Object ();
use Moo;

has '_results' => ( is => 'rw' );
has '_ffo'     => ( is => 'rw' );
has 'dir'      => ( is => 'ro' );

sub _iter
{
    my ($self) = @_;
    if ( my $r = $self->_ffo->next_obj() )
    {
        if ( $r->is_dir() )
        {
            my %found;
            foreach my $fn ( @{ $self->_ffo->get_current_node_files_list() } )
            {
                push @{ $found{ lc $fn } }, $fn;
            }
            my @positives = grep { @{ $found{$_} } > 1 } ( keys %found );

            if (@positives)
            {
                $self->_results->{ $r->path() } =
                    +{ map { $_ => $found{$_} } @positives };
            }
        }
        return 1;
    }
    return;
}

sub find
{
    my ($self) = @_;

    $self->_results( {} );
    $self->_ffo( File::Find::Object->new( {}, $self->dir ) );

    while ( $self->_iter )
    {
    }

    return $self->_results;
}

1;

__END__