Yet Another CPAN Grep

Github-Fork-Parent ( C/CH/CHORNY/Github-Fork-Parent-1.01.tar.gz, CHORNY, 2021; MetaCPAN )

Github-Fork-Parent/lib/Github/Fork/Parent.pm ( view source; MetaCPAN )

kes link to repository (git://, git@ or http://) and returns owner of root repository.

=cut

use JSON;
#use YAML::Tiny 1.40;
use LWP::UserAgent;

use Exporter 'import';
our @EXPORT = qw(github_parent

$yaml_content) {
    #my $yaml=YAML::Tiny->read_string($yaml_content) or die;
    my $yaml=decode_json($yaml_content);
    my $source_url=$yaml->{source}{html_url};
    die unless $source_url;
    ret

$yaml_content) {
    #my $yaml=YAML::Tiny->read_string($yaml_content) or die;
    my $yaml=decode_json($yaml_content);
    return $author unless $yaml->{'fork'};
    my $source=$yaml->{source}{owner}{