File Coverage

lib/Schedule/Chronic/Base.pm

Criterion	Covered	Total	%
statement	0	13	0.0
branch	0	2	0.0
condition			n/a
subroutine	0	3	0.0
pod	0	3	0.0
total	0	21	0.0

# Base class for Chronic.

package Schedule::Chronic::Base;


sub debug {

    my ($self, $msg) = @_;
    my ($package, $filename, $line, $sub, @foo) = caller(1);
    $sub =~ s/Schedule::Chronic:://;
    $self->{logger}->logthis("$msg");

}


sub fatal {

    my ($self, $msg) = @_;
    print STDOUT "FATAL ERROR: $msg\n";
    die("\n");

}


sub which {

    my ($self, $app) = @_;

    my $path = `which $app`;
    chomp $path;

    if ($path =~ /no $app/) {
        return;
    }

    return $path;

}


1;