a module generated by chatgpt and copilot

Client.pm

package MastodonLike::Client;

use strict;
use warnings;

use LWP::UserAgent;
use JSON;
use HTTP::Request::Common;

sub new {
    my ($class, %args) = @_;
    my $instance = $args{instance};
    my $access_token = $args{access_token};

    my $ua = $args{ua} || LWP::UserAgent->new();
    my $json = $args{json} || JSON->new();

    my $self = {
        instance => $instance,
        access_token => $access_token,
        ua => $ua,
        json => $json,
    };

    return bless $self, $class;
}

sub request {
    my ($self, $endpoint, $method, $params) = @_;

    my $url = $self->{instance} . $endpoint;
    my $req;

    if ($method eq 'GET') {
        $req = GET($url);
    } elsif ($method eq 'POST') {
        $req = POST($url, $params);
    } else {
        die "Invalid method: $method";
    }

    $req->header('Authorization', "Bearer " . $self->{access_token});
    $req->header('Content-Type', 'application/json');

    my $res = $self->{ua}->request($req);
    die "Request failed: " . $res->status_line unless $res->is_success;

    return $self->{json}->decode($res->content);
}

sub verify_credentials {
    my ($self) = @_;
    return $self->request('/api/v1/accounts/verify_credentials', 'GET');
}

sub followers {
    my ($self, $id) = @_;
    return $self->request("/api/v1/accounts/$id/followers", 'GET');
}

sub following {
    my ($self, $id) = @_;
    return $self->request("/api/v1/accounts/$id/following", 'GET');
}

sub home_timeline {
    my ($self, $params) = @_;
    return $self->request('/api/v1/timelines/home', 'GET', $params);
}

1;