File Coverage

blib/lib/Email/IsFree.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	20	22	90.9

package Email::IsFree;

use strict;
use warnings;

use vars qw($VERSION);

$VERSION = '0.02';

my %domains;

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

sub by_domain {
  my $domain = shift;
  return exists $domains{$domain} ? 1 : 0;
}

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

1;

=pod

=head1 NAME

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

=head1 SYNOPSIS

  use Email::IsFree;

  # returns 1
  print Email::IsFree::by_domain("hotmail.com");
  print Email::IsFree::by_email("[e-mail]");

  # returns 0
  print Email::IsFree::by_domain("aol.com");
  print Email::IsFree::by_email("[e-mail]");

=head1 ABSTRACT

This module detects whether an e-mail address belongs to a
free e-mail provider such as hotmail.com or yahoo.com.  It
currently contains over 6000 domains.  Additions and
corrections are welcome.

=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

TJ Mather, [e-mail]

=head1 CREDITS

The following people have contributed free e-mail domains:

  Robert Young
  David J

Thanks!

=head1 COPYRIGHT AND LICENSE

Copyright 2003 by MaxMind LLC

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

=cut

__DATA__