File Coverage

lib/XT/Files/Plugin/Dirs.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	7	8	87.5
condition	6	6	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	55	56	98.2

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

use 5.006;
use strict;
use warnings;

our $VERSION = '0.002';

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

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

    my @dirs;

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

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

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

    my $xtf = $self->xtf;

    # We sort the dirs because e.g. bin/lib must be scanned before bin
    # because bin_dir() would add every file found.
    #
    # By reverse sorting we guarantee that we always scan the most
    # significant directory first.
  DIR:
    for my $dir ( reverse sort { $a->[1] cmp $b->[1] } @dirs ) {
        my ( $type, $name ) = @{$dir};

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

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

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

    return;
}

1;

__END__