view release on metacpan or  search on metacpan

lib/Net/Domain/TldMozilla.pm  view on Meta::CPAN

=head1 SYNOPSIS

  use Net::Domain::TldMozilla;
  
  my @Tld= Net::Domain::TldMozilla->get;

=head1 DESCRIPTION

TLD is acquired and returned from the source open to the public on the Mozilla site.

Please set HTTP_PROXY of the environment variable if you use Proxy.

  $ENV{HTTP_PROXY}= '192.168.0.1:8080';

=head1 METHODS

=head2 get_tld

The list of TLD is returned.

  my $TLD= Net::Domain::TldMozilla->get;

=head1 ENVIRONMENT VARIABLE

lib/Net/SPAMerLookup.pm  view on Meta::CPAN

  if (my $spamer= $spam->is_spamer(@TARGET)) {
  	print "It is SPAMer.";
  } else {
  	print "There is no problem.";
  }

=head1 DESCRIPTION

SPAMer is judged by using RBL.

Please set HTTP_PROXY of the environment variable if you use Proxy.

see L<Net::Domain::TldMozilla>.

=head1 SETTING RBL USED

When passing it to the start option.

  use Net::SPAMerLookup qw/ all.rbl.jp .....  /;

When doing by the import method.

t/00_use.t  view on Meta::CPAN

		}
		my $temp= "$ENV{TLD_MOZILLA_TEMP}/mozilla_tld.cache";
		File::Slurp::write_file($temp, ( join("\n", @tld) || '' ));
		warn __PACKAGE__. " - data save. [$temp]";
		my $num= $ENV{SPAMER_ARGS} ? 10 : do {
			warn "I want information on SPAMer in SPAMER_ARGS of the environment variable.";
			8;
		  };
		&main_test($num);
	} else {
		plan skip_all=> 'HTTP_PROXY of the environment variable might be necessary.';
	}
}

sub main_test {
	my($test)= @_;
	plan tests=> $test;

	can_ok 'Net::Domain::TldMozilla', 'get_tld';
	  ok my @list= Net::Domain::TldMozilla->get_tld;
	  ok scalar(@list)> 0;