File Coverage

lib/XT/Files/Plugin/Default.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	8	8	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	46	46	100.0

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

use 5.006;
use strict;
use warnings;

our $VERSION = '0.001';

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

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

    my $dirs     = 1;
    my $excludes = 1;

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

        if ( $key eq 'dirs' ) {
            $dirs = !!$value;
            next ARG;
        }

        if ( $key eq 'excludes' ) {
            $excludes = !!$value;
            next ARG;
        }

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

    my $xtf = $self->xtf;

    if ($excludes) {
        $xtf->plugin( 'Excludes', undef, [ map { [ 'exclude' => $_ ] } (qw([.]swp$ [.]bak$ ~$)) ] );
    }

    if ($dirs) {
        $xtf->plugin(
            'Dirs', undef,
            [
                [ bin    => 'bin' ],
                [ bin    => 'script' ],
                [ module => 'lib' ],
            ],
        );
    }

    return;
}

1;

__END__