File Coverage

blib/lib/Enbld/Message.pm

Criterion	Covered	Total	%
statement	13	19	68.4
branch	4	8	50.0
condition			n/a
subroutine	4	5	80.0
pod	0	3	0.0
total	21	35	60.0

package Enbld::Message;

use strict;
use warnings;

our $VERBOSE;

sub notify {
    my ( $pkg, $msg ) = @_;

    chomp( $msg );
    $msg .= "\n";

    require Enbld::Logger;
    Enbld::Logger->write( $msg ) if Enbld::Logger->logfile;

    print $msg if $VERBOSE;
}

sub alert {
    my ( $pkg, $msg ) = @_;

    chomp( $msg );
    $msg .= "\n";

    require Enbld::Logger;
    Enbld::Logger->write( $msg ) if Enbld::Logger->logfile;

    print STDERR $msg if $VERBOSE;
}

sub set_verbose {
    $VERBOSE++;
}

1;