CPAN::Groonga

 experimental 'try';
    use File::ShareDir::Tiny qw[dist_dir module_dir];
    use JSON::Tiny           qw[decode_json];
    use Path::Tiny           qw[path];
    use Time::Moment;                   

ecode_token ($token) {
            use MIME::Base64 qw[decode_base64];
            use JSON::Tiny   qw[decode_json];
            my ( $header, $payload, $sig ) = split /\./, $token;
            $paylo

ad =~ tr[-_][+/];    # Replace Base64-URL characters with standard Base64
            decode_json decode_base64 $payload;
        }
        field $http //= Mojo::UserAgent->can('start') ? At::UserAgen

st one char
    #~       - regardless of path component, a fragment can follow  as "#" and then a JSON pointer (RFC-6901)
    sub ensureValidAtUri($uri) {
        my $fragmentPart;
        my @uriPart

st 0.02 {

    #~ https://github.com/bluesky-social/atproto/blob/main/lexicons/app/bsky/feed/post.json
    use v5.38;
    no warnings 'experimental::class';    # Be quiet.
    use feature 'class';
   

.com/>

L<https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/repo/strongRef.json>

=head1 LICENSE

Copyright (C) Sanko Robinson.

This library is free software; you can redistrib

    #~ https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/moderation/defs.json
    use v5.38;
    use lib '../../../../../lib';
    no warnings 'experimental::class', 'experime

roto.com/>

L<https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/admin/defs.json>

=head1 LICENSE

Copyright (C) Sanko Robinson.

This library is free software; you can redistrib

.18 {

    #~ https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/admin/defs.json
    use v5.38;
    use lib '../../../../../lib';
    no warnings 'experimental::class', 'experime

roto.com/>

L<https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/admin/defs.json>

=head1 LICENSE

Copyright (C) Sanko Robinson.

This library is free software; you can redistrib

Spec::Functions qw[catfile catdir rel2abs abs2rel splitdir curdir];
    use JSON::PP 2            qw[encode_json decode_json];

    # Not in CORE
    use Path::Tiny qw[path];
    use ExtUtils::Helpers

  #
    field $action : param //= 'build';
    field $meta : reader = CPAN::Meta->load_file('META.json');

    # Params to Build script
    field $install_base : param  //= '';
    field $installdirs 

 param       //= '';
    field $prefix : param        //= '';
    #
    ADJUST {
        -e 'META.json' or die "No META information provided\n";
    }
    method write_file( $filename, $content ) { pa

.com/>

L<https://github.com/bluesky-social/atproto/blob/main/lexicons/com/atproto/sync/listRepos.json>

=head1 LICENSE

Copyright (C) Sanko Robinson.

This library is free software; you can redistrib

02 {

    #~ https://github.com/bluesky-social/atproto/blob/main/lexicons/app/bsky/richtext/facet.json
    use v5.38;
    no warnings 'experimental::class', 'experimental::builtin';    # Be quiet.