regress/base/confirm.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/env perl
#
# $FML$
#

use lib qw(../../fml/lib ../../cpan/lib);
use FML::Confirm;

my $confirm = new FML::Confirm {
    cache_dir => "/tmp/confirm.cache",
    class     => "subscribe",
    address   => "fukachan\@fml.org",
    buffer    => "subscribe kenichi fukamachi",
};

print "id = ", $confirm->assign_id(), "\n";

exit 0;