Yet Another CPAN Grep

Bluesky-Poster ( N/NH/NHORNE/Bluesky-Poster-0.02.tar.gz, NHORNE, 2025; MetaCPAN )

Bluesky-Poster/lib/Bluesky/Poster.pm ( view source; MetaCPAN )

 Bluesky::Poster;

use strict;
use warnings;

use Carp;
use LWP::UserAgent;
use JSON::MaybeXS qw(encode_json decode_json);
use Object::Configure;
use Params::Validate::Strict;
use Params::Get;
use URI

d parameter: $required"
		}
	}

	my $self = {
		%{$params},
		agent	=> LWP::UserAgent->new,
		json => JSON::MaybeXS->new()->utf8->canonical,
		session	=> undef,
	};

	bless $self, $class;

	$self->_lo

sky.social/xrpc/com.atproto.server.createSession',
		'Content-Type' => 'application/json',
		Content => $self->{json}->encode({
			identifier => $self->{identifier},
			password => $self->{password},