File Coverage

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

Criterion	Covered	Total	%
statement	19	23	82.6
branch	2	2	100.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	29	34	85.2

package File::Find::Object::Result;
$File::Find::Object::Result::VERSION = '0.3.8';
use strict;
use warnings;
use integer;

use Class::XSAccessor accessors => {
    (
        map { $_ => $_ } (
            qw(
                base
                basename
                is_dir
                is_file
                is_link
                path
                dir_components
                stat_ret
            )
        )
    )
};

use Fcntl qw(:mode);

sub new
{
    my $class = shift;
    my $self  = shift;

    bless $self, $class;

    return $self;
}

sub full_components
{
    my $self = shift;

    return [
        @{ $self->dir_components() },
        ( $self->is_dir() ? () : $self->basename() ),
    ];
}

1;

__END__