File Coverage

lib/Test/XTFiles.pm

Criterion	Covered	Total	%
statement	50	51	98.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	13	13	100.0
pod	7	8	87.5
total	75	77	97.4

package Test::XTFiles;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.002';

use Class::Tiny 1;

use XT::Files;

#
# CLASS METHODS
#

sub BUILD {
    my ( $self, $args ) = @_;

    @{ $self->{_files} } = XT::Files->instance->files;

    return;
}

#
# OBJECT METHODS
#

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

    my @files = map { $_->name } grep { $_->is_script } $self->files;
    return @files;
}

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

    my @files = map { $_->name } $self->files;
    return @files;
}

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

    my @files = map { $_->name } grep { $_->is_module } $self->files;
    return @files;
}

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

    my @files = map { $_->name } grep { $_->is_script || $_->is_module || $_->is_test } $self->files;
    return @files;
}

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

    my @files = map { $_->name } grep { $_->is_pod } $self->files;
    return @files;
}

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

    my @files = map { $_->name } grep { $_->is_test } $self->files;
    return @files;
}

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

    my @files = sort @{ $self->{_files} };
    return @files;
}

1;

__END__