new-direct-message.pl

# Snippet demonstrating how to post a direct message with an attached image
# using the new Twitter direct message API

# First upload the image
my $media = $client->upload_media({
    media => [ $image_path_name ],
    media_category => 'dm_image'
});

# Attach the image in message_data
my $r = $client->post('direct_messages/events/new', {
    -to_json => {
        event => {
            type => 'message_create',
            message_create => {
                target => { recipient_id => $user_id },
                message_data => {
                    text => $text,
                    attachment => {
                        type  => 'media',
                        media => { id => $media->{id} },
                    },
                },
            },
        },
    },
});