view release on metacpan or  search on metacpan

modules/lib/Mail/MIMEDefang/Unit.pm  view on Meta::CPAN

Method that includes F<mimedefang.pl.in> code without running anything.

=cut

# This bit of evil is how we pull in MIMEDefang's .pl code without running anything.
sub include_mimedefang : Test(startup)
{
	no warnings 'redefine';
	local *CORE::GLOBAL::exit = sub { };
	local @ARGV = ();
	local $SIG{__WARN__} = sub {
		my $w = shift;
		warn $w unless $w =~ /unlikely to be reached|Maybe you meant system/;
	};
	do './mimedefang.pl.in';
	use warnings 'redefine';
}

=item smtp_mail