App-lcpan-CmdBundle-metacpan

 view release on metacpan or  search on metacpan

lib/App/lcpan/Cmd/metacpan_author.pm  view on Meta::CPAN

    my %args = @_;

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $envres = envresmulti();
    for my $author (@{ $args{authors} }) {
        my ($cpanid) = $dbh->selectrow_array(
            "SELECT cpanid FROM author WHERE cpanid=?", {}, uc $author);
        defined $cpanid or do {
            $envres->add_result(404, "No such author '$author'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/author/$cpanid";
        my $err = Browser::Open::open_browser($url);
        if ($err) {
            $envres->add_result(500, "Can't open browser for URL $url");
        } else {
            $envres->add_result(200, "OK");

lib/App/lcpan/Cmd/metacpan_dist.pm  view on Meta::CPAN

    my %args = @_;

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $envres = envresmulti();
    for my $dist (@{ $args{dists} }) {
        my ($file_id, $cpanid, $version) = $dbh->selectrow_array(
            "SELECT id, cpanid, dist_version FROM file WHERE dist_name=? AND is_latest_dist", {}, $dist);
        $file_id or do {
            $envres->add_result(404, "No such dist '$dist'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/release/$cpanid/$dist-$version";
        my $err = Browser::Open::open_browser($url);
        if ($err) {
            $envres->add_result(500, "Can't open browser for URL $url");
        } else {
            $envres->add_result(200, "OK");

lib/App/lcpan/Cmd/metacpan_mod.pm  view on Meta::CPAN

    my %args = @_;

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $envres = envresmulti();
    for my $mod (@{ $args{modules} }) {
        my ($file_id) = $dbh->selectrow_array(
            "SELECT file_id FROM module WHERE name=?", {}, $mod);
        $file_id or do {
            $envres->add_result(404, "No such module '$mod'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/pod/$mod";
        my $err = Browser::Open::open_browser($url);
        if ($err) {
            $envres->add_result(500, "Can't open browser for URL $url");
        } else {
            $envres->add_result(200, "OK");

lib/App/lcpan/Cmd/metacpan_pod.pm  view on Meta::CPAN

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $envres = envresmulti();
    for my $pod (@{ $args{pods} }) {
        (my $pod_path = $pod) =~ s!::!/!g;
        my ($file_id) = $dbh->selectrow_array(
            "SELECT id FROM content WHERE path LIKE '%/lib/${pod_path}.pod' OR path LIKE '%/${pod_path}.pod'", {});
        $file_id or do {
            $envres->add_result(404, "No such .pod '$pod'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/pod/$pod";
        my $err = Browser::Open::open_browser($url);
        if ($err) {
            $envres->add_result(500, "Can't open browser for URL $url");
        } else {
            $envres->add_result(200, "OK");

lib/App/lcpan/Cmd/metacpan_script.pm  view on Meta::CPAN

    my %args = @_;

    my $state = App::lcpan::_init(\%args, 'ro');
    my $dbh = $state->{dbh};

    my $envres = envresmulti();
    for my $script (@{ $args{scripts} }) {
        my ($file_id) = $dbh->selectrow_array(
            "SELECT name FROM script WHERE name=?", {}, $script);
        $file_id or do {
            $envres->add_result(404, "No such script '$script'");
            next;
        };

        require Browser::Open;
        my $url = "https://metacpan.org/pod/$script";
        my $err = Browser::Open::open_browser($url);
        if ($err) {
            $envres->add_result(500, "Can't open browser for URL $url");
        } else {
            $envres->add_result(200, "OK");