view release on metacpan or  search on metacpan

ex/server-fnc.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';

use AnyEvent;
use AnyEvent::SMTP::Server 'smtp_server';
use Data::Dumper;

my $cv = AnyEvent->condvar;

smtp_server undef, 2525, sub {
	warn "MAIL=".Dumper shift;
	die;
};

$cv->recv;

ex/server-obj.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::SMTP::Server;
use Data::Dumper;

my $cv = AnyEvent->condvar;

my $server = AnyEvent::SMTP::Server->new( port => 2525 );

$server->reg_cb(
	ready => sub {
		my $s = shift;
		warn "Server started on $s->{host}:$s->{port} with hostname $s->{hostname}\n";
	},

ex/server-restricted.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';
use AnyEvent;
use AnyEvent::SMTP::Server;
use AnyEvent::DNS;
use Data::Dumper;

# !
# ! Don't use this example as production code.
# ! This is only an example.
# ! Real production cases must be more smart
# !

my $cv = AnyEvent->condvar;

my $server = AnyEvent::SMTP::Server->new( port => 2525 );