File Coverage

blib/lib/Log/Dispatch/Configurator.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	3	4	75.0
condition			n/a
subroutine	9	10	90.0
pod	0	7	0.0
total	32	42	76.1

package Log::Dispatch::Configurator;

use strict;
use vars qw($VERSION);
$VERSION = 0.11_02;

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

sub parse { }

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

sub conf_time {
    my $self = shift;
    $self->{_ctime} = shift if @_;
    $self->{_ctime};
}

sub should_watch {
    my $self = shift;
    $self->{_watch} = shift if @_;
    return $self->{_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__