File Coverage

lib/XT/Files/Plugin/Files.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	11	12	91.6
condition	15	15	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	71	72	98.6

package XT::Files::Plugin::Files;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.001';

use parent 'XT::Files::Plugin';

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

    my @files;

  ARG:
    for my $arg ( @{$args} ) {
        my ( $key, $value ) = @{$arg};

        if ( ( $key eq 'bin' ) || ( $key eq 'module' ) || ( $key eq 'pod' ) || ( $key eq 'test' ) ) {
            push @files, $arg;
            next ARG;
        }

        $self->log_fatal("Invalid configuration option '$key = $value' for plugin 'Files'");
    }

    my $xtf = $self->xtf;

  FILE:
    for my $file (@files) {
        my ( $type, $name ) = @{$file};

        next FILE if -l $name || -d _ || !-e _;

        if ( $type eq 'bin' ) {
            $xtf->bin_file($name);
            next FILE;
        }

        if ( $type eq 'module' ) {
            $xtf->module_file($name);
            next FILE;
        }

        if ( $type eq 'pod' ) {
            $xtf->pod_file($name);
            next FILE;
        }

        if ( $type eq 'test' ) {
            $xtf->test_file($name);
            next FILE;
        }
    }

    return;
}

1;

__END__