Result:
found more than 733 distributions - search limited to the first 2001 files matching your query ( run in 1.462 )


App-orgadb

 view release on metacpan or  search on metacpan

lib/App/orgadb/Select/Shell.pm  view on Meta::CPAN


sub catch_run {
    my $self = shift;
    my ($cmd, @argv) = @_;

    $self->_err([404, "No such command"]);
    return;
}

sub catch_comp {
    require Perinci::Sub::Complete;

 view all matches for this distribution


App-pandoc-preprocess

 view release on metacpan or  search on metacpan

ppp-Documentation.fdb_latexmk  view on Meta::CPAN

  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm5.tfm" 1246382020 940 75ac932a52f80982a9f8ea75d03a34cf ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm7.tfm" 1246382020 940 228d6584342e91276bf566bcf9716b83 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx10.tfm" 1254269338 12076 b54175e02101bea1addf6b2d0197ed12 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx12.tfm" 1254269338 12088 d750ac78274fa7c9f73ba09914c04f8a ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr10.tfm" 1254269338 12056 7e13df7fe4cbce21b072ba7c4f4deb6e ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr12.tfm" 1254269338 12092 7b1546e2d096cfd5dcbd4049b0b1ec2e ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr17.tfm" 1254269338 12156 ca1ae6a3c8564e89597f1f993fba1608 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr7.tfm" 1254269338 12064 09aa3eeac96bf141d673bb1b0385ce55 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmri10.tfm" 1254269338 17148 9556e1b5f936b77a796f68d2d559ba99 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt10.tfm" 1254269338 1372 2ef2c2b492b3c4cd7879fe083abbb061 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt12.tfm" 1254269338 1368 6a60e6a5e029141041d64d339b87e533 ""

ppp-Documentation.fdb_latexmk  view on Meta::CPAN

  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm5.tfm" 1246382020 940 75ac932a52f80982a9f8ea75d03a34cf ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/amsfonts/symbols/msbm7.tfm" 1246382020 940 228d6584342e91276bf566bcf9716b83 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx10.tfm" 1254269338 12076 b54175e02101bea1addf6b2d0197ed12 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmbx12.tfm" 1254269338 12088 d750ac78274fa7c9f73ba09914c04f8a ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr10.tfm" 1254269338 12056 7e13df7fe4cbce21b072ba7c4f4deb6e ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr12.tfm" 1254269338 12092 7b1546e2d096cfd5dcbd4049b0b1ec2e ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr17.tfm" 1254269338 12156 ca1ae6a3c8564e89597f1f993fba1608 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmr7.tfm" 1254269338 12064 09aa3eeac96bf141d673bb1b0385ce55 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmri10.tfm" 1254269338 17148 9556e1b5f936b77a796f68d2d559ba99 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt10.tfm" 1254269338 1372 2ef2c2b492b3c4cd7879fe083abbb061 ""
  "/usr/local/texlive/2013/texmf-dist/fonts/tfm/public/lm/ec-lmtt12.tfm" 1254269338 1368 6a60e6a5e029141041d64d339b87e533 ""

 view all matches for this distribution


App-perlall

 view release on metacpan or  search on metacpan

lib/Devel/PatchPerl/Plugin/Asan.pm  view on Meta::CPAN

     if (doeval(gimme, NULL, runcv, seq)) {
+	OP *ret;
 	if (was != PL_breakable_sub_gen /* Some subs defined here. */
 	    ? (PERLDB_LINE || PERLDB_SAVESRC)
 	    :  PERLDB_SAVESRC_NOSUBS) {
@@ -4037,7 +4043,9 @@ PP(pp_entereval)
 	    char *const safestr = savepvn(tmpbuf, len);
 	    SAVEDELETE(PL_defstash, safestr, len);
 	}
-	return DOCATCH(PL_eval_start);
+	ret = DOCATCH(PL_eval_start);

 view all matches for this distribution


App-perlbrew

 view release on metacpan or  search on metacpan

lib/App/Perlbrew/HTTP.pm  view on Meta::CPAN

        test     => '--version >/dev/null 2>&1',
        get      => '--silent --location --fail -o - {url}',
        download => '--silent --location --fail -o {output} {url}',
        order    => 1,

        # Exit code is 22 on 404s etc
        die_on_error => sub { die 'Page not retrieved; HTTP error code 400 or above.' if ($_[ 0 ] >> 8 == 22); },
    },
    wget => {
        test     => '--version >/dev/null 2>&1',
        get      => '--quiet -O - {url}',

lib/App/Perlbrew/HTTP.pm  view on Meta::CPAN

        test     => '--version >/dev/null 2>&1',
        get      => '-o - {url}',
        download => '-o {output} {url}',
        order    => 3,

        # Exit code is 8 on 404s etc
        die_on_error => sub { die 'Server issued an error response.' if ($_[ 0 ] >> 8 == 8); },
    }
);

sub http_user_agent_program {

 view all matches for this distribution


App-perlrdf

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 019edd7479827a5ce34f4bcebef1d2f32e17597d lib/App/perlrdf/Command/Validate.pm
SHA1 c53fed5353f055d8071d36a7a906b891300a1964 lib/App/perlrdf/DummyModel.pm
SHA1 72a2c58bad86ac50518eacb406ad394d7ae681dd lib/App/perlrdf/FileSpec.pm
SHA1 197a1ac919225cfc96d9bc73bf947b98bd47c773 lib/App/perlrdf/FileSpec/InputFile.pm
SHA1 e825f3bcd7ddbc9ae740389d9b3fe80c74255797 lib/App/perlrdf/FileSpec/InputRDF.pm
SHA1 bc2f37a861059dd6fbb407d19c1c8937b5c40475 lib/App/perlrdf/FileSpec/OutputFile.pm
SHA1 a08554d75585dc16d5ded889c944a93cc31af6a0 lib/App/perlrdf/FileSpec/OutputRDF.pm
SHA1 a80384ed5585861df9f1bcbd1a812de36eb42a21 t/01basic.t
SHA1 6241e55ff9b8eb12e239edfd8c6e8f09a905a878 t/02translate.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1

 view all matches for this distribution


App-perluse

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA256 dc6abe9e5c332e98d93f082bdb3df8246b0d8025802956eb78b5e0e69f8623de t/010_version.t
SHA256 17dbd1738d37748b33f6a6fd3fae1bf95fbce8b7fa802ee8c81843b5d4c081b1 xt/check_changes.t
SHA256 5d37ab129b13c89c283d8bf47d73478da673609d3c5bd89418e475c071223f96 xt/consistent_version_numbers.t
SHA256 e88279db5c78ec7b6962d4e69d6dba21017f5ecec7911636239c3921953a0455 xt/cover.pl
SHA256 70234944e3cb809fe1a5a109442d1edffb61e2741a58934bdce01983c7ddea78 xt/cpan_changes.t
SHA256 4e59f938404c3364665c56609876ef7d8f1cfbf50fae15ea41e9d7d74f762127 xt/cpan_meta.t
SHA256 e1f62aa3ea76a489ff7af567425b7ff7248355b06d608b489bf5e336388b3606 xt/dist_manifest.t
SHA256 53380743cf5b29766d5f0414479b00668f1bd92511430dc45afa3a8eeab734da xt/distribution.t
SHA256 8966c5a37363adb08d354b5a0a6df1c35df4f95f83a3fe3559c16dc9eb4a7e04 xt/eol.t
SHA256 b8a967c89a3d9a7559a1041c17ca4c755e1eddc0f15cd395707529722c854c34 xt/kwalitee.t
SHA256 f0d398413940ba6876ac1405651c9c56b9282181cf933cdda44de00f73bea827 xt/no_tabs.t

 view all matches for this distribution


App-phoebe

 view release on metacpan or  search on metacpan

lib/App/Phoebe/Oddmuse.pm  view on Meta::CPAN

  $log->debug("Requesting $url");
  my $ua = Mojo::UserAgent->new;
  my $res = $ua->get($url => {'X-Forwarded-For' => $stream->handle->peerhost})->result;
  if ($res->is_success) {
    return $res->text;
  } elsif ($res->code == 404) {
    return "";
  }
  oddmuse_http_error($stream, $res->code, $res->message, $url); # false
}

lib/App/Phoebe/Oddmuse.pm  view on Meta::CPAN

  my $url = shift;
  if ($code >= 200 and $code < 300) { $code = 20 }
  elsif ($code == 301) { $code = 31 }
  elsif ($code >= 300 and $code < 400) { $code = 30 }
  elsif ($code == 403) { $code = 60 }
  elsif ($code == 404) { $code = 51 }
  elsif ($code == 405) { $code = 59 }
  elsif ($code >= 400 and $code < 500) { $code = 50 }
  elsif ($code >= 500 and $code < 600) { $code = 40 }
  else { $code = 50 }
  $log->warn("$code $message requesting $url");

 view all matches for this distribution


App-pl

 view release on metacpan or  search on metacpan

pod/examples.pod  view on Meta::CPAN

    >   /                11010111111          2100222         122333        11555      2328     1727
    >   /               101000011111         10112222         220133        15555      3488     2591
    >   /               111100101111         12022222         330233        25555      5288     3887
    >   /              1011011000111         21222222        1123013        42555      7888     5831
    >   /             10001000101011        102222222        2020223       104255     12888     8747
    >   /             11001101000001        122222222        3031001       140425     18888    13121
    >   /            100110011100010        222222222       10303202       231042     28888    19682
    >   \             10011001110001        111111111        2121301       113321     14444     9841
    >   /             11100110101010        202020202        3212222       152202     22222    14762
    >   \              1110011010101        101010101        1303111        54101     11111     7381
    >   /             10101101000000        120012002        2231000       123132     16162    11072

 view all matches for this distribution


App-plackbench

 view release on metacpan or  search on metacpan

t/test_app.psgi  view on Meta::CPAN


    my $method = $request->{PATH_INFO};
    $method =~ s#^/|/$##g;
    $method =~ s#/#_#g;

    my $response = HTTP::Response->new(404, 'Not Found', [], 'Not Found');
    if (my $sub = __PACKAGE__->can($method)) {
        $response = $sub->($request);
    }

    push @requests, $request;

 view all matches for this distribution


App-pmuninstall

 view release on metacpan or  search on metacpan

lib/App/pmuninstall.pm  view on Meta::CPAN


sub fetch {
    my ($self, $url) = @_;
    $self->puts("-> Fetching from $url") if $self->{verbose};
    my $res = HTTP::Tiny->new->get($url);
    return if $res->{status} == 404;
    die "[$res->{status}] fetch $url failed!!\n" if !$res->{success};
    return $res->{content};
}

sub slurp {

 view all matches for this distribution


App-pod2wp

 view release on metacpan or  search on metacpan

lib/App/pod2wp.pm  view on Meta::CPAN

    my %args = @_;

    my $dry_run = $args{-dry_run};

    my $filename = $args{filename};
    (-f $filename) or return [404, "No such file '$filename'"];

    require File::Slurper;
    my $pod = File::Slurper::read_text($filename);

    log_info("Converting POD to HTML ...");

 view all matches for this distribution


App-podtohtml

 view release on metacpan or  search on metacpan

lib/App/podtohtml.pm  view on Meta::CPAN

    my $infile  = $args{infile} // '-';
    my $outfile = $args{outfile} // '-';
    my $browser = $args{browser};

    unless ($infile eq '-' or -f $infile) {
        return [404, "No such file '$infile'"];
    }

    my $tempdir = File::Temp::tempdir();

    Pod::Html::pod2html(

 view all matches for this distribution


App-ppgrep

 view release on metacpan or  search on metacpan

script/_ppgrep  view on Meta::CPAN

Mo/build.pm,419413,248,47;14020
Mo/builder.pm,419683,338,48;14024
Mo/chain.pm,420041,216,49;14028
Mo/coerce.pm,420278,330,50;14032
Mo/default.pm,420630,435,51;14036
Mo/exporter.pm,421088,176,52;14040
Mo/import.pm,421285,185,53;14044
Mo/importer.pm,421493,207,54;14048
Mo/is.pm,421717,228,55;14052
Mo/nonlazy.pm,421967,129,56;14056
Mo/option.pm,422117,259,57;14060
Mo/required.pm,422399,340,58;14064
Mo/xs.pm,422756,256,59;14068

script/_ppgrep  view on Meta::CPAN

Sah/SchemaR/rinci/result_meta.pm,621993,2277,75;19972
Sah/Schemas/Rinci.pm,624299,1280,76;20030
String/LineNumber.pm,625608,2512,77;20086
String/PerlQuote.pm,628148,3383,78;20204
String/Wildcard/Bash.pm,631563,8895,79;20329
YAML/Old.pm,640478,3321,80;20643
YAML/Old/Dumper.pm,643826,17730,81;20760
YAML/Old/Dumper/Base.pm,661588,3735,82;21337
YAML/Old/Error.pm,665349,5985,83;21448
YAML/Old/Loader.pm,671361,25286,84;21639
YAML/Old/Loader/Base.pm,696679,1235,85;22410

script/_ppgrep  view on Meta::CPAN

#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err();    # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
#                           #     {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#

 view all matches for this distribution


App-psst

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN


    test fix.
    
    remove a capture variable to prevent an extra clone(2);

commit b8a97f67c9ef0f4be38a26a6940438d6bb8af6a8
Author: Matthew Astley <beeep$mca@t8o.org>
Date:   Mon Sep 12 22:28:42 2011 +0100

    some testing.
      fails due to esc=$( echo -e "\e" )

 view all matches for this distribution


App-renlikewd

 view release on metacpan or  search on metacpan

script/renlikewd  view on Meta::CPAN


    my %args = @_;
    my $file = $args{file} or return [400, "Please specify file to rename"];
    my $parents = $args{parents} // 0;

    return [404, "File '$file' does not exist"]
        unless File::Util::Test::file_exists($file);
    my $ext = $file =~ /.(\.\w+)$/ ? $1 : "";

    my $cwd = Cwd::getcwd();
    return [412, "Please don't run me in root directory as it's meaningless"]

 view all matches for this distribution


App-reposdb

 view release on metacpan or  search on metacpan

lib/App/reposdb.pm  view on Meta::CPAN

    return [400, "Please specify repo name"] unless defined $args{repo};

    $dbh->begin_work;
    my ($tags) = $dbh->selectrow_array("SELECT tags FROM repos WHERE name=?",
                                       {}, $args{repo});
    defined($tags) or return [404, "No such repo '$args{repo}'"];

    my %tags = map { $_ => 1 } split /,/, $tags;
    delete $tags{$_} for @{ $args{tags} };
    $dbh->do("UPDATE repos SET tags=? WHERE name=?",
             {}, join(",", sort keys %tags), $args{repo});

lib/App/reposdb.pm  view on Meta::CPAN

    return [400, "Please specify repo name"] unless defined $args{repo};

    $dbh->begin_work;
    my ($tags) = $dbh->selectrow_array("SELECT tags FROM repos WHERE name=?",
                                       {}, $args{repo});
    defined($tags) or return [404, "No such repo '$args{repo}'"];
    $dbh->do("UPDATE repos SET tags=NULL WHERE name=?",
             {}, $args{repo});
    $dbh->commit;
    [200];
}

 view all matches for this distribution


App-revealup

 view release on metacpan or  search on metacpan

lib/App/revealup/cli/serve.pm  view on Meta::CPAN

        my $reveal_dir = App::revealup::util::share_path([qw/share/]);
        $path = $reveal_dir->child($env->{PATH_INFO});
        return App::revealup::util::path_to_res($path) if $path->exists;
        App::revealup::util::warn("$path does not exist");
        return [
            404,
            ['Content-Type' => 'text/plain'],
            ['Not Found']
        ];
    };
}

 view all matches for this distribution


App-riap

 view release on metacpan or  search on metacpan

lib/App/riap.pm  view on Meta::CPAN

    my ($cmd, @argv) = @_;

    my $pwd = $self->state("pwd");
    my $uri = concat_and_normalize_path($pwd, $cmd);
    my $res = $self->riap_request(info => $uri);
    if ($res->[0] == 404) {
        $self->_err([404, "No such command or executable (Riap function)"]);
        return;
    } elsif ($res->[0] != 200) {
        $self->_err($res);
        return;
    }

 view all matches for this distribution


App-rimetadb

 view release on metacpan or  search on metacpan

lib/App/rimetadb.pm  view on Meta::CPAN

    }

    # try package metadata
    my ($row) = $dbh->selectrow_hashref(
        "SELECT metadata FROM package WHERE name=?", {}, $name)
        or return [404, "Can't find function or package with that name"];

    [200, "OK (package meta)", $row->{metadata}];
}

1;

 view all matches for this distribution


App-rs

 view release on metacpan or  search on metacpan

bin/rs  view on Meta::CPAN

		    $B = $t;
		    print "Available: ", jw($B);
	    } else {
		    say 'Getting module info from metacpan...';
		    $j = Rmodinfo($o->{module});
		    if (eval { $j->{code} == 404 }) {
			    $j = Vmodinfo($o->{module});
			    my @r = map { $_->{_source} } @{$j->{hits}{hits}};
			    if (@r < 1)		{ die c(RR, "Nothing provides $o->{module}.") }
			    elsif (@r > 1)	{ say c(YY, "Multiple modules provides $o->{module}: ",
							join ', ', map { $_->{distribution} } @r) }

 view all matches for this distribution


App-shcompgen

 view release on metacpan or  search on metacpan

lib/App/shcompgen.pm  view on Meta::CPAN

        if ($prog0 =~ m!/!) {
            ($prog = $prog0) =~ s!.+/!!;
            $progpath = $prog0;
            unless (-f $progpath) {
                log_error("No such file %s, skipped", $progpath);
                $envres->add_result(404, "No such file", {item_id=>$prog0});
                next PROG;
            }
        } else {
            require File::Which;
            $prog = $prog0;
            $progpath = File::Which::which($prog0);
            unless ($progpath) {
                log_error("'%s' not found in PATH, skipped", $prog0);
                $envres->add_result(404, "Not in PATH", {item_id=>$prog0});
                next PROG;
            }
        }

        my $which = $which0;

lib/App/shcompgen.pm  view on Meta::CPAN

    _set_args_defaults(\%args);

    my $progname = $args{prog};
    my $progpath = File::Which::which($progname);

    return [404, "No such program '$progname'"] unless $progpath;
    $progname =~ s!.+/!!;

    _detect_prog(
        prog => $progname,
        progpath => $progpath,

 view all matches for this distribution


App-short

 view release on metacpan or  search on metacpan

lib/App/short.pm  view on Meta::CPAN

    return $res unless $res->[0] == 200;

    my $S = $args{short_dir};
    my $L = $args{long_dir};

    return [404, "No such long name '$args{long}'"]
        unless (-d "$L/$args{long}");
    return [412, "Short name '$args{short}' already exists"]
        if (-l "$S/$args{short}");

    symlink(File::Spec->abs2rel(

lib/App/short.pm  view on Meta::CPAN


    for my $s (@{ $args{short} }) {
        my $path = "$S/$s";

        if (!(-l $path)) {
            $envres->add_result(404, "Short name not found", {item_id=>$s});
        } elsif (!unlink($path)) {
            $envres->add_result(500, "Can't unlink: $!", {item_id=>$s});
        } else {
            $envres->add_result(200, "OK", {item_id=>$s});
        }

 view all matches for this distribution


App-traveller

 view release on metacpan or  search on metacpan

lib/Traveller/Mapper.pm  view on Meta::CPAN

Raraxema     0609 B421768-8    T NSG  Na Po
Xeerri       0610 C210862-9        G  Na
Onreon       0702 D8838A9-2       S   Lt Ri          A
Ismave       0703 E272654-4           Lt Ni
Lara         0704 C0008D9-5       SG  As Lt Na Va    A
Lalala       0705 C140473-9     R  G  De Ni Po
Maxereis     0707 A55A747-12  CT NSG  Ht Wa
Requbire     0802 C9B4200-10       G  Fl Lo          A
Azaxe        0804 B6746B9-8   C    G  Ag Ga Ni       A
Rieddige     0805 B355578-7        G  Ag Ni          A
Usorce       0806 E736110-3        G  Lo Lt          A

 view all matches for this distribution


App-unbelievable

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

eg/content/sample2.md
eg/cpanfile
eg/environments/development.yml
eg/environments/production.yml
eg/lib/Site.pm
eg/public/404.html
eg/public/500.html
eg/public/css/error.css
eg/public/css/style.css
eg/public/dispatch.cgi
eg/public/dispatch.fcgi

 view all matches for this distribution


App-wordlist-blossom

 view release on metacpan or  search on metacpan

script/_wordlist-blossom  view on Meta::CPAN

#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err();    # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
#                           #     {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#

 view all matches for this distribution


App-wordlist-wordle

 view release on metacpan or  search on metacpan

script/_wordlist-wordle  view on Meta::CPAN

#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err();    # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
#                           #     {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#

 view all matches for this distribution


App-wordlist

 view release on metacpan or  search on metacpan

script/_wordlist  view on Meta::CPAN

#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err();    # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
#                           #     {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#

 view all matches for this distribution


App-wsgetmail

 view release on metacpan or  search on metacpan

lib/App/wsgetmail/MS365.pm  view on Meta::CPAN

as closely as possible.

The defaults in L<App::wsgetmail> could be represented as:

  $example_response_matrix = {
    delete_message => { '400' => 'ignore', '404' => 'ignore' },

    default => { '5xx' => 'ignore' },
  };


 view all matches for this distribution


App-zen

 view release on metacpan or  search on metacpan

bin/zen  view on Meta::CPAN

      print "\r\n";
      return;
    }
  
    unless (-f $path) {
      print "HTTP/1.0 404 Not found\r\n";
      print $cgi->header,
        $cgi->start_html('Not found'),
        $cgi->h1('Not found'),
        $path,
        $cgi->end_html;

bin/zen  view on Meta::CPAN

  
  sub on_list_dir {
    my ($cgi, $path) = @_;
  
    if (!-d $path) {
      write_error(404, "Not found");
      return;
    }
  
    my @contents = ();
    opendir(my $dh, $path) or die "Cannot open directory: $!";

 view all matches for this distribution


App-zipdetails

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    Fri Mar 26 16:37:29 2021 +0000
    a1a30f661b6f28b0ae0a6fb7283f0fd30fcc5e40

  * fix indentation
    Fri Mar 26 16:37:29 2021 +0000
    ff5383c2f14d05ba2389aef831467440432fb2ab

  * fix indentation
    Fri Mar 26 16:36:27 2021 +0000
    5a2eb29bd89fc859dc9e3a8d9e4cb7656e4b8420

Changes  view on Meta::CPAN

    Fri Mar 26 15:05:47 2021 +0000
    7f5cfcbc2d4a0ca0d2294ceeb603d5c1e370b47d

  * add redact option
    Fri Mar 26 15:05:47 2021 +0000
    c7f874a112846ffda3dd00bd354ba124049c5d2d

  * documentation updates
    Fri Mar 26 14:52:17 2021 +0000
    a4f30989bd4e05ab42f4af68b993972f4a1fccd3

Changes  view on Meta::CPAN

    Wed Jan 6 09:47:30 2021 +0000
    522aba970e62a0bd42b781e934067a53890b9634

  * fix bitmask for deflate compression level
    Tue Jan 5 17:35:40 2021 +0000
    a112fa01de85b228be51a5a40498b9a30ee969a0

  * Avoid using indirect calls
    Tue Jun 23 14:26:40 2020 -0600
    36390d5562dbc799d4a8bbf7ec32ddf3317f504f

Changes  view on Meta::CPAN

    Tue Jan 21 22:18:55 2020 +0000
    3c646399b724daf420c08c35e72a11990d81f076

  * remove trailing whitespace
    Tue Jan 21 22:12:59 2020 +0000
    89bd8162f5d51358e5e3b76404b62a96b0f6c901

  * minor documentation changes
    Tue Jan 21 22:07:43 2020 +0000
    b793cb4e0b3c0c36cc2919dbf67218338d8e12ed

 view all matches for this distribution


( run in 1.462 second using v1.01-cache-2.11-cpan-39bf76dae61 )