File Coverage

blib/lib/File/Find/Object/PathComp.pm

Criterion	Covered	Total	%
statement	48	51	94.1
branch	6	6	100.0
condition	3	6	50.0
subroutine	13	14	92.8
pod			n/a
total	70	77	90.9

package File::Find::Object::PathComp;
$File::Find::Object::PathComp::VERSION = '0.3.9';
use strict;
use warnings;
use integer;

use parent 'File::Find::Object::Base';

use Class::XSAccessor accessors => {
    (
        map { $_ => $_ } (
            qw(
                _actions
                _curr_file
                _files
                _last_dir_scanned
                _open_dir_ret
                _stat_ret
                _traverse_to
            )
        )
    )
    },
    getters => { _inodes     => '_inodes' },
    setters => { _set_inodes => '_inodes' },
    ;

use File::Spec ();

__PACKAGE__->_make_copy_methods(
    [
        qw(
            _files
            _traverse_to
        )
    ]
);

sub _dev
{
    return shift->_stat_ret->[0];
}

sub _inode
{
    return shift->_stat_ret->[1];
}

sub _is_same_inode
{
    my $self = shift;

    # $st is an array ref with the return of perldoc -f stat .
    my $st = shift;

    # On MS-Windows, all inodes in stat are returned as 0, so we need to
    # check that both inodes are not zero. This is why there's the
    # $self->_inode() != 0 check at the end.
    return (   $self->_dev() == $st->[0]
            && $self->_inode() == $st->[1]
            && $self->_inode() != 0 );
}

sub _should_scan_dir
{
    my $self    = shift;
    my $dir_str = shift;

    if ( defined( $self->_last_dir_scanned() )
        && ( $self->_last_dir_scanned() eq $dir_str ) )
    {
        return;
    }
    else
    {
        $self->_last_dir_scanned($dir_str);
        return 1;
    }
}

sub _set_up_dir
{
    my $self    = shift;
    my $dir_str = shift;

    $self->_files( $self->_calc_dir_files($dir_str) );

    $self->_traverse_to( $self->_files_copy() );

    return $self->_open_dir_ret(1);
}

sub _calc_dir_files
{
    my $self    = shift;
    my $dir_str = shift;

    my $handle;
    my @files;
    if ( !opendir( $handle, $dir_str ) )
    {
        # Handle this error gracefully.
    }
    else
    {
        @files =
            ( sort { $a cmp $b } File::Spec->no_upwards( readdir($handle) ) );
        closedir($handle);
    }

    return \@files;
}

sub _component_open_dir
{
    my $self    = shift;
    my $dir_str = shift;

    if ( !$self->_should_scan_dir($dir_str) )
    {
        return $self->_open_dir_ret();
    }

    return $self->_set_up_dir($dir_str);
}

sub _next_traverse_to
{
    my $self = shift;

    return shift( @{ $self->_traverse_to() } );
}

1;

__END__