File Coverage

lib/XT/Files/Plugin.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	2	0.0
total	46	49	93.8

package XT::Files::Plugin;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.001';

use Class::Tiny 1 qw(name xtf);

use Role::Tiny::With ();

Role::Tiny::With::with 'XT::Files::Role::Logger';

use Carp         ();
use Scalar::Util ();

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

    my $xtf = $self->xtf;
    Carp::croak 'xtf attribute required' if !defined $xtf;
    Carp::croak q{'xtf' is not of class 'XT::Files'} if !defined Scalar::Util::blessed($xtf) || !$xtf->isa('XT::Files');

    if ( !defined $self->name ) {
        $self->name( Scalar::Util::blessed($self) );
    }

    return;
}

sub log_prefix {
    my ($self) = @_;

    return $self->name;
}

1;

__END__