File Coverage

blib/lib/Log/Dispatch/Configurator.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	4	6	66.6
condition			n/a
subroutine	9	10	90.0
pod	0	7	0.0
total	33	44	75.0

package Log::Dispatch::Configurator;

use strict;
use vars qw($VERSION);
$VERSION = '1.00';

sub new {
    my($class, $file) = @_;
    bless { file   => $file }, $class;
}

sub myinit {
    my $self = shift;
    $self->{LDC_ctime} = 0 unless defined $self->{LDC_ctime};
    $self->{LDC_watch} = 0 unless defined $self->{LDC_watch};
}

sub reload { }

sub needs_reload {
    my $self = shift;
    return $self->{LDC_ctime} < (stat($self->{file}))[9];
}

sub should_watch {
    my $self = shift;
    $self->{LDC_watch} = shift if @_;
    return $self->{LDC_watch};
}

sub _abstract_method {
    require Carp;
    Carp::croak(shift, " is an abstract method of ", __PACKAGE__);
}

sub get_attrs_global { _abstract_method('get_attrs_global') }
sub get_attrs        { _abstract_method('get_attrs') }

1;
__END__