view release on metacpan or  search on metacpan

examples/account.pl  view on Meta::CPAN

=account_blocks
{
    'status' => 200,
    'data' => {
        'items' => [
            {
                'url' => 'selftaught'
            }
        ],
        'next' => undef
    },
    'success' => 1
}
=cut

my $account_block_status = $client->account_block_status('SelfTaught');
print Dumper $account_block_status;
=account_block_status
{
    'data' => {
        'blocked' => 1
    }
}
=cut

my $account_block_delete = $client->account_block_delete('SelfTaught');
print Dumper $account_block_delete;
=account_block_delete
{
    'status' => 204,
    'data' => {
        'blocked' => 0
    },
    'success' => 1
}
=cut


my $account_comments = $client->account_comments('me');
print Dumper $account_comments;
=account_comments
{
    'data' => [
        {
            'image_id' => 'YEj8sxk',
            'children' => [],
            'id' => 2386713745,
            'comment' => 'A classic',
            'album_cover' => 'Uewx2t5',
            'deleted' => 0,
            'downs' => 0,
            'author' => 'SelfTaughtBot',
            'datetime' => 1711335655,
            'points' => 1,
            'author_id' => 179790421,
            'parent_id' => 0,
            'vote' => undef,
            'on_album' => 1,
            'has_admin_badge' => $VAR1->{'data'}[0]{'deleted'},
            'ups' => 1,
            'platform' => 'desktop'
        }
    ],
    'success' => 1,
    'status' => 200
}
=cut

my $account_comment_ids = $client->account_comment_ids('me');
print Dumper $account_comment_ids;
=account_comment_ids
{
    'status' => 200,
    'success' => 1,
    'data' => [
        2386713745
    ]
}
=cut

# TODO: create a comment to delete and remove logic
if (my $comment_id = shift @{$account_comment_ids->{data}}) {
    my $account_comment_delete = $client->account_comment_delete('me', $comment_id);
}
=account_comment_delete
{
    'status' => 200,
    'data' => 1,
    'success' => 1
}
=cut

my $account_favorites = $client->account_favorites('me');
print Dumper $account_favorites;
=account_favorites
{
    'data' => [
        {
        'comment_count' => 18,
        'favorite' => 1,
        'type' => 'image/jpeg',
        'cover_height' => 973,
        'description' => '',
        'link' => 'https://imgur.com/gallery/YEj8sxk',
        'height' => 973,
        'datetime' => 1711310992,
        'in_gallery' => $VAR1->{'data'}[0]{'favorite'},
        'cover_width' => 800,
        'size' => 0,
        'title' => 'A little late, but 25 years ago last week, this Gem was first released.',
        'downs' => 4,
        'cover' => 'Uewx2t5',
        'points' => 121,
        'ups' => 125,
        'width' => 800,
        'favorite_count' => 11,
        'views' => 4698,
        'has_sound' => 0,
        'id' => 'YEj8sxk',
        'score' => 0,
        'tags' => undef,

examples/account.pl  view on Meta::CPAN

        'nsfw' => undef,
        'link' => 'https://i.imgur.com/DcYwgVi.jpg',
        'datetime' => 1710902271,
        'edited' => '0',
        'width' => 2371,
        'deletehash' => 'krYDnuTFOHnTPWV',
        'has_sound' => $VAR1->{'data'}[0]{'is_ad'},
        'description' => 'CuriousCodes Obverse',
        'size' => 740611,
        'height' => 2349,
        'views' => 1
        }
    ],
    'status' => 200
}
=cut


my $account_image_count = $client->account_image_count('me');
print Dumper $account_image_count;
=account_image_count
{
    'status' => 200,
    'data' => 1,
    'success' => 1
}
=cut

my $account_image_ids = $client->account_image_ids('me');
print Dumper $account_image_ids;
=account_image_ids
{
    'status' => 200,
    'data' => [
        'DcYwgVi',
        'uUK2UnD',
        'uJQXhz4',
        'UstNJZW',
        'NWzreUw',
        'ohm4DIb'
    ],
    'success' => 1
=cut

my $account_reply_notifications = $client->account_reply_notifications('me');
print Dumper $account_reply_notifications;
=account_reply_notifications
{
    'status' => 200,
    'data' => {
        'replies' => [
            {
                'id' => 2386713745,
                'content' => 'A classic',
                'author' => 'SelfTaughtBot',
                'author_id' => 179790421,
                'on_album' => 1,
                'image_id' => 'YEj8sxk',
                'comment_id' => 2386713745,
                'datetime' => 1711335655,
                'platform' => 'desktop',
                'vote' => undef,
                'deleted' => 0,
                'ups' => 1,
                'downs' => 0,
                'children' => []
            }
        ],
        'total' => 1
    },
    'success' => 1
}
=cut

my $account_settings = $client->account_settings('me');
print Dumper $account_settings;
=account_settings
{
    'success' => 1,
    'status' => 200,
    'data' => {
        'account_url' => 'SelfTaughtBot',
        'avatar' => undef,
        'pro_expiration' => 0,
        'blocked_users' => [],
        'newsletter_subscribed' => $VAR1->{'success'},
        'show_mature' => $VAR1->{'data'}{'pro_expiration'},
        'email' => 'email@example.com',
        'accepted_gallery_terms' => $VAR1->{'data'}{'pro_expiration'},
        'cover' => undef,
        'comment_replies' => $VAR1->{'success'},
        'active_emails' => [],
        'messaging_enabled' => $VAR1->{'success'},
        'album_privacy' => 'hidden',
        'first_party' => $VAR1->{'success'},
        'public_images' => $VAR1->{'data'}{'pro_expiration'}
    }
}
=cut

my $settings = {
    bio => 'SelfTaughtBot is a bot that posts programming memes',
    public_images => 1,
    album_privacy => 'hidden',
    messaging_enabled => 0,
    accepted_gallery_terms => 1,
    show_mature => 0,
    newsletter_subscribed => 0,
};

my $account_settings_update = $client->account_settings_update('me', $settings);
print Dumper $account_settings_update;
=account_settings_update
{
    'status' => 200,
    'success' => 1,
    'data' => 1
}
=cut

my $account_submissions = $client->account_submissions('me');