File Coverage

lib/Haineko/SMTPD/Milter.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	6	8	75.0
condition	3	4	75.0
subroutine	13	14	92.8
pod	7	7	100.0
total	67	73	91.7

package Haineko::SMTPD::Milter;
use strict;
use warnings;
use Try::Tiny;
use Module::Load;

sub import {
    my $class = shift;
    my $argvs = shift || return 0;  # (Ref->Array) Module names
    my $llist = [];

    return 0 unless ref $argvs eq 'ARRAY';
    for my $e ( @$argvs ){
        # Load each module
        $e =~ s/\A/Haineko::SMTPD::Milter::/ unless $e =~ /\A[+]/;
        $e =~ s/\A[+]//;
        try {
            Module::Load::load( $e );
            push @$llist, $e;
        } catch {
            next;
        };
    }

    return $llist;
}

sub libs {
    my $class = shift;
    my $argvs = shift || return 0;  # (Ref->Array) Path names
    my $count = 0;

    return 0 unless ref $argvs eq 'ARRAY';
    for my $e ( @$argvs ){
        next if grep { $e eq $_ } @$INC;
        unshift @INC, $e;
        $count++;
    }
    return scalar $count;
}

sub conn {
    # Implement at sub class
    return 1;
}

sub ehlo {
    # Implement at sub class
    return 1;
}

sub mail {
    # Implement at sub class
    return 1
}

sub rcpt {
    # Implement at sub class
    return 1;
}

sub head {
    # Implement at sub class
    return 1;
}

sub body {
    # Implement at sub class
    return 1;
}

1;
__END__