File Coverage

blib/lib/App/Milter/Limit/Plugin.pm

Criterion	Covered	Total	%
statement	16	25	64.0
branch	0	2	0.0
condition			n/a
subroutine	5	9	55.5
pod	4	4	100.0
total	25	40	62.5

#
# This file is part of App-Milter-Limit
#
# This software is copyright (c) 2010 by Michael Schout.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

package App::Milter::Limit::Plugin;
$App::Milter::Limit::Plugin::VERSION = '0.53';
# ABSTRACT: Milter Limit driver plugin base class

use strict;
use warnings;
use base 'Class::Singleton';

use App::Milter::Limit::Config;

sub _new_instance {
    my $class = shift;

    my $self = $class->SUPER::_new_instance(@_);

    $self->init(@_);

    return $self;
}


sub config_get {
    my ($self, $section, $name) = @_;

    my $conf = $section eq 'global'
             ? App::Milter::Limit::Config->global
             : App::Milter::Limit::Config->section($section);

    return $$conf{$name};
}


sub config_defaults {
    my ($self, $section, %defaults) = @_;

    App::Milter::Limit::Config->set_defaults($section, %defaults);
}


sub init {
    my $self = shift;
    die ref($self)." does not implement init()\n";
}


sub query {
    my $self = shift;
    die ref($self)." does not implement query()\n";
}

1;

__END__