view release on metacpan or  search on metacpan

bin/get_github_favorites  view on Meta::CPAN

    }

    return @repos;
}

sub main {

    my $github_login = $ARGV[0];

    if (not defined $github_login) {
        say "You should run it as `$0 GITHUB_LOGIN`";
        exit 1;
    }

    my @repos = get_repos_liked_by_user($github_login);

    say 'namespace,name,source';

    foreach my $r (@repos) {
        my $language = $r->{language};
        say
            $language . ','
            . $r->{name} . ','
            . $r->{url}
            ;
    }

bin/get_pauseid_distributions  view on Meta::CPAN

use utf8;
use open qw(:std :utf8);

use MetaCPAN::Client;

sub main {

    my $pause_id = $ARGV[0];

    if (not defined $pause_id) {
        say "You should run it as `$0 PAUSEID`";
        exit 1;
    }

    my $mc = MetaCPAN::Client->new();
    my $data = $mc->release({
        all => [
            { author => $pause_id },
            { status => 'latest' },
        ]
    });

    say 'namespace,name,source';

    while (my $element = $data->next) {
        my $url = $element->{data}->{resources}->{repository}->{url};

        my $module = $element->{data}->{distribution};
        $module =~ s/-/::/g;

        if (defined $url) {
            say 'perl,'
                . $module . ','
                . $url
                ;
        } else {
            warn "WARNING: no info about repostitory url for $module\n";
        }
    }

}
main();

bin/get_pauseid_favorites  view on Meta::CPAN

    my $repository_url = $data->{resources}->{repository}->{url};

    return $repository_url;
}

sub main {

    my $pause_id = $ARGV[0];

    if (not defined $pause_id) {
        say "You should run it as `$0 PAUSEID`";
        exit 1;
    }

    my $user_id = get_user_id_from_pause_id($pause_id);

    my $mc = MetaCPAN::Client->new();
    my $data = $mc->favorite({
        all => [
            { user => $user_id },
        ]
    });

    say 'namespace,name,source';

    while (my $element = $data->next) {

        my $module = $element->{data}->{distribution};
        my $url = get_distribution_repository($module);
        $module =~ s/-/::/g;

        if (defined $url) {
            say 'perl,'
                . $module . ','
                . $url
                ;
        } else {
            warn "WARNING: no info about repostitory url for $module\n";
        }
    }

}
main();