File Coverage

lib/XT/Files/Role/Logger.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	4	4	100.0
total	57	57	100.0

package XT::Files::Role::Logger;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.002';

use Role::Tiny;

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

sub log {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
    my ( $self, $msg ) = @_;

    my $msg_with_prefix = $self->_msg_with_prefix($msg);
    Test::Builder->new->note($msg_with_prefix);

    return;
}

sub log_debug {
    my ( $self, $msg ) = @_;

    return if !$ENV{XT_FILES_DEBUG};

    $self->log($msg);

    return;
}

sub log_fatal {
    my ( $self, $msg ) = @_;

    $self->log($msg);

    my $msg_with_prefix = $self->_msg_with_prefix($msg);

    my $package = __PACKAGE__;
    local $Carp::CarpInternal{$package} = 1;    ## no critic (Variables::ProhibitPackageVars)
    Carp::confess($msg_with_prefix);
}

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

    return Scalar::Util::blessed($self);
}

sub _msg_with_prefix {
    my ( $self, $msg ) = @_;

    my $msg_with_prefix = '[' . $self->log_prefix . '] ' . $msg;
    return $msg_with_prefix;
}

1;

__END__