view release on metacpan or  search on metacpan

lib/Net/Nostr/Git.pm  view on Meta::CPAN

    croak "nostr:// URL required" unless defined $url && $url =~ m{\Anostr://(.+)\z}i;
    my $rest = $1;

    # naddr form
    if ($rest =~ /\Anaddr1/) {
        my $data = decode_naddr($rest);
        return $data;
    }

    # owner/[relay-hint/]identifier form
    my @parts = split m{/}, $rest, -1;
    my $owner = $parts[0];
    croak "owner must not be empty" unless defined $owner && length $owner;
    croak "nostr:// clone URL requires an identifier" if @parts < 2;

    if (@parts == 2) {
        return {
            owner      => $owner,
            identifier => _percent_decode($parts[1]),
        };
    }