use WebService::Mailgun;

my $mailgun = WebService::Mailgun->new(
    api_key => '<YOUR_API_KEY>',
    domain => '<YOUR_MAIL_DOMAIN>',
);

# send mail
my $res = $mailgun->message({
    from    => '[email protected]',
    to      => '[email protected]',
    subject => 'test',
    text    => 'text',
});

# send mail
my $res = $mailgun->message({
    from    => '[email protected]',
    to      => '[email protected]',
    subject => 'test',
    text    => 'text',
});

# send MIME message via a filename: 
my $res = $mailgun->message({
    to      => '[email protected]',
            file    => '/path/to/filename.mime',    
});

# send MIME message via a string:
    use MIME::Entity; 
    my $str = MIME::Entity->build(
            From    => '[email protected]',
    To      => '[email protected]',
    Subject => "Subject",
    Data    => 'Messag4')->as_string;
    
my $res = $mailgun->message({
    to       => '[email protected]',
            message  => $str,
});

# or send MIME message via a string ref:    
my $res = $mailgun->message({
    to       => '[email protected]',
            message  => \$str,
});

# get mailing lists
my $lists = $mailgun->lists();
# => ArrayRef of mailing list object.

# add mailing list
my $res = $mailgun->add_list({
    address => '[email protected]', # Mailing list address
    name    => 'ml sample',      # Mailing list name (Optional)
    description => 'sample',     # description (Optional)
    access_level => 'members',   # readonly(default), members, everyone
});

# get mailing list detail
my $data = $mailgun->list('[email protected]');

# update mailing list
my $res = $mailgun->update_list('[email protected]' => {
    address => '[email protected]', # Mailing list address (Optional)
    name    => 'ml sample',      # Mailing list name (Optional)
    description => 'sample',     # description (Optional)
    access_level => 'members',   # readonly(default), members, everyone
});

# delete mailing list
my $res = $mailgun->delete_list('[email protected]');

# get members
my $res = $mailgun->list_members('[email protected]');

# add member
my $res = $mailgun->add_list_member('[email protected]' => {
    address => '[email protected]', # member address
    name    => 'username',         # member name (Optional)
    vars    => '{"age": 34}',      # member params(JSON string) (Optional)
    subscribed => 'yes',           # yes(default) or no
    upsert     => 'no',            # no (default). if yes, update exists member
});

use JSON; # auto export 'encode_json'

# add members
my $res = $mailgun->add_list_members('[email protected]' => {
    members => encode_json [
        { address => '[email protected]' },
        { address => '[email protected]' },
        { address => '[email protected]' },
    ],
    upsert  => 'no',            # no (default). if yes, update exists member
});

# too simple
my $res = $mailgun->add_list_members('[email protected]' => {
    members => encode_json [qw/[email protected] [email protected]/],
});

# update member
my $res = $mailgun->list_member('[email protected]', '[email protected]');

# update member
my $res = $mailgun->update_list_member('[email protected]', '[email protected]' => {
    address => '[email protected]', # member address (Optional)
    name    => 'username',         # member name (Optional)
    vars    => '{"age": 34}',      # member params(JSON string) (Optional)
    subscribed => 'yes',           # yes(default) or no
});

# delete member
my $res = $mailgun->delete_list_member('[email protected]' => '[email protected]');

# get event data
my ($events, $purl) = $mailgun->event({ event => 'stored', limit => 50 });

# get event data
my ($events, $purl) = $mailgun->event({ event => 'stored' });
my $msg = $mailgun->get_message_from_event($events->[0]);

# add template
my $res = $mailgun->add_template({
    name        => 'welcome',     # Template name
    template    => 'Hello!',      # Template data
    engine      => 'handlebars',  # Template engine (optional)
    description => 'xyz',         # Description of template (optional)
    tag         => '2.0' ,        # Version tag (optional)
    comment     => 'Test'         # Version comment (optional)
});

my $res = $mailgun->delete_templates();

my $res = $mailgun->delete_template($name);

# event Pooling
my ($events, $purl) = $mailgun->event({ event => 'stored', begin => localtime->epoch() });
// do something ...
$events = $mailgun->event($purl);
// ...