view release on metacpan or  search on metacpan

lib/Antispam/Toolkit/Role/IPChecker.pm  view on Meta::CPAN

package Antispam::Toolkit::Role::IPChecker;
BEGIN {
  $Antispam::Toolkit::Role::IPChecker::VERSION = '0.08';
}

use strict;
use warnings;
use namespace::autoclean;

use Antispam::Toolkit::Types qw( NonEmptyStr );
use Carp qw( croak );
use List::AllUtils qw( any );

use Moose::Role;
use MooseX::Params::Validate qw( validated_hash );

requires 'check_ip';

around check_ip => sub {
    my $orig = shift;
    my $self = shift;
    my %p    = validated_hash(
        \@_,
        ip => { isa => NonEmptyStr, optional => 1 },
    );

    return $self->$orig(%p);
};

1;

# ABSTRACT: A role for classes which check whether an ip address is associated with spam



=pod

=head1 NAME

Antispam::Toolkit::Role::IPChecker - A role for classes which check whether an ip address is associated with spam

=head1 VERSION

version 0.08

=head1 SYNOPSIS

  package MyIPChecker;

  use Moose;

  with 'Antispam::Toolkit::Role::IPChecker';

  sub check_ip { ... }

=head1 DESCRIPTION

This role specifies an interface for classes which check whether a specific
ip address is associated with spam.

=head1 REQUIRED METHODS

Classes which consume this method must provide one method:

=head2 $checker->check_ip( ip => ... )

This method implements the actual spam checking for an ip address. The ip
address will be passed as a named parameter.

=head1 METHODS

This role provides an around modifier for the C<< $checker->check_ip() >>
method. The modifier does validation on all the parameters, so there's no need
to implement this in the class itself.

=head1 BUGS

See L<Antispam::Toolkit> for bug reporting details.

=head1 AUTHOR

Dave Rolsky <autarch@urth.org>