File Coverage

lib/XT/Files/Plugin/lib.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	44	47	93.6

package XT::Files::Plugin::lib;    ## no critic (NamingConventions::Capitalization)

use 5.006;
use strict;
use warnings;

our $VERSION = '0.001';

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

use Cwd ();
use lib ();

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

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

        if ( $key eq 'lib' ) {
            if ( -d $value ) {
                my $dir = Cwd::abs_path($value);

                if ( ( defined $dir ) && ( -d $dir ) ) {
                    lib->import($dir);
                }
            }

            next ARG;
        }

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

    return;
}

1;

__END__