File Coverage

lib/XT/Files/Plugin/Excludes.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	30	100.0

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

use 5.006;
use strict;
use warnings;

our $VERSION = '0.002';

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

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

    my $xtf = $self->xtf;

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

        if ( $key eq 'exclude' ) {
            $xtf->exclude($value);
            next ARG;
        }

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

    return;
}

1;

__END__