File Coverage

blib/lib/Email/IsFree/CN.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	32	37.5

package Email::IsFree::CN;

use strict;
use warnings;

use vars qw($VERSION);

$VERSION = '0.01';

sub new {
    my $class = shift;
    my %domains;

    while () {
        chomp;
        $domains{$_} = 1;
    }

    bless { domains => \%domains },$class;
}

sub by_domain {
    my $self = shift;
    my $domain = lc(+shift);
    return exists $self->{domains}->{$domain} ? 1 : 0;
}

sub by_email {
    my $self = shift;
    my $email = shift;
    return $self->by_domain((split('@',$email))[-1]);
}

1;

=pod

=head1 NAME

Email::IsFree::CN - Detect whether e-mail is from free provider in China

=head1 SYNOPSIS

  use Email::IsFree::CN;

  my $cnfm = Email::IsFree::CN->new;
  print $cnfm->by_domain('163.com');  # print 1
  print $cnfm->by_email('[e-mail]');  # print 1
  print $cnfm->by_email('[e-mail]');  # print 0

=head1 ABSTRACT

This module detects whether an e-mail address belongs to a
free e-mail provider in China such as 163.com or sina.com.

=head1 DESCRIPTION

This module can be used to screen credit card orders based
on e-mail.  Many credit card scamsters use free, anonymous
email accounts with another person's name to place fraudulent
orders.

=head1 AUTHOR

Xiaolan Fu

=head1 CREDITS

I got the idea from the module Email::IsFree whose author is
TJ Mather, thanks.

=head1 COPYRIGHT AND LICENSE

Copyright 2009 by Xiaolan Fu

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__DATA__