Yet Another CPAN Grep

Gedcom ( P/PJ/PJCJ/Gedcom-1.22.tar.gz, PJCJ, 2019; MetaCPAN )

Gedcom/lib/Gedcom/WebServices.pm ( view source; MetaCPAN )

 my $path   = $uri->path;
    # print STDERR "parse path $path\n";
    if ($path =~ s!^/ws/(plain|json|xml)/!!) {
        $r->notes(PATH => $path);
        # print STDERR "parse new path [$1]\n";


            } elsif ($type eq "json") {
                my $r = $rec->hash;
                # use DDS; print STDERR Dump $r;
                print JSON->new->objToJson({ rec => $r });
            } e

        } elsif ($type eq "json") {
                    my $r = $_->hash;
                    # use DDS; print STDERR Dump $r;
                    print JSON->new->objToJson($r);
                } els