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


Alt-CPAN-Uploader-tinyua

 view release on metacpan or  search on metacpan

lib/CPAN/Uploader.pm  view on Meta::CPAN

  if (not defined $response) {
    die "Request completely failed - we got undef back: $!";
  }

  if (!$response->success) {
    if ($response->status eq '404') {
      die $self->target, "'s CGI for handling messages seems to have moved!\n",
        "(HTTP response code of 404 from the ", $self->target, " web server)\n",
        "It used to be: ", $uri, "\n",
        "Please inform the maintainer of @{[__PACKAGE__]}.\n";
    } else {
      die "request failed with error code ", $response->status,
        "\n  Message: ", $response->reason, "\n";

 view all matches for this distribution


Alt-Digest-MD5-OpenSSL

 view release on metacpan or  search on metacpan

t/original/align.t  view on Meta::CPAN

my $str = "\100" x 20;
substr($str, 0, 1) = "";  # chopping off first char makes the string unaligned

#use Devel::Peek; Dump($str); 

print "not " unless md5_hex($str) eq "c7ebb510e59ee96f404f288d14cc656a";
print "ok 1\n";

 view all matches for this distribution


Alt-FFI-Raw-Platypus

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Alt-FFI-Raw-Platypus

0.04      2021-04-29 21:00:36 -0600
  - Moved to new GitHub org PerlFFI.  Additionally the repository link used to
    be wrong and would 404 in older versions.

0.03      2019-02-16 18:21:10 -0500
  - Fix configure prereqs

0.02      2019-02-16 09:35:12 -0500

 view all matches for this distribution


Alt-Math-Prime-FastSieve-Inline

 view release on metacpan or  search on metacpan

inc/Capture/Tiny.pm  view on Meta::CPAN

  }
  # restore prior filehandles and shut down tees
  # _debug( "# restoring filehandles ...\n" );
  _open_std( $stash->{old} );
  _close( $_ ) for values %{$stash->{old}}; # don't leak fds
  # shouldn't need relayering originals, but see rt.perl.org #114404
  _relayer(\*STDOUT, $layers{stdout}) if $do_stdout;
  _relayer(\*STDERR, $layers{stderr}) if $do_stderr;
  _unproxy( %proxy_std );
  # _debug( "# killing tee subprocesses ...\n" ) if $do_tee;
  _kill_tees( $stash ) if $do_tee;

 view all matches for this distribution


Alvis-Convert

 view release on metacpan or  search on metacpan

lib/Alvis/Document/Encoding.pm  view on Meta::CPAN

 55366=>1,  55367=>1,  55368=>1,  55369=>1,  55370=>1,  55371=>1,  55372=>1, 
 55373=>1,  55374=>1,  55375=>1,  55376=>1,  55377=>1,  55378=>1,  55379=>1, 
 55380=>1,  55381=>1,  55382=>1,  55383=>1,  55384=>1,  55385=>1,  55386=>1, 
 55387=>1,  55388=>1,  55389=>1,  55390=>1,  55391=>1,  55392=>1,  55393=>1, 
 55394=>1,  55395=>1,  55396=>1,  55397=>1,  55398=>1,  55399=>1,  55400=>1, 
 55401=>1,  55402=>1,  55403=>1,  55404=>1,  55405=>1,  55406=>1,  55407=>1, 
 55408=>1,  55409=>1,  55410=>1,  55411=>1,  55412=>1,  55413=>1,  55414=>1, 
 55415=>1,  55416=>1,  55417=>1,  55418=>1,  55419=>1,  55420=>1,  55421=>1, 
 55422=>1,  55423=>1,  55424=>1,  55425=>1,  55426=>1,  55427=>1,  55428=>1, 
 55429=>1,  55430=>1,  55431=>1,  55432=>1,  55433=>1,  55434=>1,  55435=>1, 
 55436=>1,  55437=>1,  55438=>1,  55439=>1,  55440=>1,  55441=>1,  55442=>1, 

lib/Alvis/Document/Encoding.pm  view on Meta::CPAN

 56367=>1,  56368=>1,  56369=>1,  56370=>1,  56371=>1,  56372=>1,  56373=>1, 
 56374=>1,  56375=>1,  56376=>1,  56377=>1,  56378=>1,  56379=>1,  56380=>1, 
 56381=>1,  56382=>1,  56383=>1,  56384=>1,  56385=>1,  56386=>1,  56387=>1, 
 56388=>1,  56389=>1,  56390=>1,  56391=>1,  56392=>1,  56393=>1,  56394=>1, 
 56395=>1,  56396=>1,  56397=>1,  56398=>1,  56399=>1,  56400=>1,  56401=>1, 
 56402=>1,  56403=>1,  56404=>1,  56405=>1,  56406=>1,  56407=>1,  56408=>1, 
 56409=>1,  56410=>1,  56411=>1,  56412=>1,  56413=>1,  56414=>1,  56415=>1, 
 56416=>1,  56417=>1,  56418=>1,  56419=>1,  56420=>1,  56421=>1,  56422=>1, 
 56423=>1,  56424=>1,  56425=>1,  56426=>1,  56427=>1,  56428=>1,  56429=>1, 
 56430=>1,  56431=>1,  56432=>1,  56433=>1,  56434=>1,  56435=>1,  56436=>1, 
 56437=>1,  56438=>1,  56439=>1,  56440=>1,  56441=>1,  56442=>1,  56443=>1, 

 view all matches for this distribution


Alzabo-GUI-Mason

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 117c083f8fde8cf11f46a1b1ac95988e2e4ec8f6 mason/change_column.mhtml
SHA1 61b56c2478793e4584c81849d3dc3ef9d86771ff mason/change_column_name.mhtml
SHA1 9c51de2f3615e08fcdd0e4714aacaf0683457ab6 mason/change_schema_instantiation.mhtml
SHA1 c0bcbc757f20311eeba61e72462015d612b6cf1a mason/change_schema_name.mhtml
SHA1 67b0ff751763b8402f1f916489c273bb3fd19325 mason/change_table_attributes.mhtml
SHA1 6fc21a42b565615f85570cf22404f7421244b824 mason/change_table_comment.mhtml
SHA1 70e19eddfa3a195e34c2aabb3e6db447bbe4c5bb mason/change_table_name.mhtml
SHA1 d3d0606c1d5e776ae6e329fe9c1ca4f99c81f443 mason/cube_logo.jpg
SHA1 5c60e3ccca219cea330c77f61560997352d068c0 mason/delete_column.mhtml
SHA1 0e6e4e5f2f45fc3b6c06e323ece2cfeef2fd871c mason/delete_foreign_key.mhtml
SHA1 5a57bb43601da789dd0a42b1113495afc801a3da mason/delete_index.mhtml

 view all matches for this distribution


Alzabo

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 7765c4067cdc3d479927a9d39271c2eaebb47efb lib/Alzabo/Runtime/Cursor.pm
SHA1 b935b85cb5104020571f9bc92c768ed2c2622c28 lib/Alzabo/Runtime/ForeignKey.pm
SHA1 98cdbbcf494436195b6b1066a255e3fd49eae082 lib/Alzabo/Runtime/Index.pm
SHA1 d6020951072aa9d3c31c2331b135b7c97624401e lib/Alzabo/Runtime/InsertHandle.pm
SHA1 e9f9384bb2b33a7b37a2a5edd558fd564449a58c lib/Alzabo/Runtime/JoinCursor.pm
SHA1 e099c87c9eb801d070d94046b7545acf19008d30 lib/Alzabo/Runtime/Row.pm
SHA1 5d533602334bb04a30f9802b1171c7a4fd2ab315 lib/Alzabo/Runtime/RowCursor.pm
SHA1 3fa4206befef7da4bc1a1d6b0bfc8a87045fc232 lib/Alzabo/Runtime/RowState/Deleted.pm
SHA1 47b9e4dc8d77af6443baa0c92393311cd4923d3d lib/Alzabo/Runtime/RowState/InCache.pm
SHA1 ac9916a03a0b574826b73d36161802d0e2607481 lib/Alzabo/Runtime/RowState/Live.pm
SHA1 df04b6491aa096118da455e432cc8d08cd167073 lib/Alzabo/Runtime/RowState/Potential.pm

 view all matches for this distribution


Amazon-DynamoDB

 view release on metacpan or  search on metacpan

t/presidents.json  view on Meta::CPAN

   {
      "age_at_inauguration" : 55,
      "total_national_votes" : 26753786,
      "year_first_inaugurated" : 1921,
      "percentage_of_electorial_vote" : "76.1",
      "number_of_electoral_votes" : "404",
      "name" : "Warren G. Harding",
      "college" : "None",
      "occupation" : "Editor",
      "percentage_of_popular_vote" : "60.3",
      "state_elected_from" : "Ohio",

 view all matches for this distribution


Amazon-S3-Thin

 view release on metacpan or  search on metacpan

lib/Amazon/S3/Thin.pm  view on Meta::CPAN

=head2 Comparison to precedent modules

There are already some useful modules like L<Amazon::S3>, L<Net::Amazon::S3>
 on CPAN. They provide a "Perlish" interface, which looks pretty
 for Perl programmers, but they also hide low-level behaviors.
For example, the "get_key" method translate HTTP status 404 into C<undef> and
 HTTP 5xx status into exception.

In some situations, it is very important to see the raw HTTP communications.
That's why I made this module.

 view all matches for this distribution


Amazon-S3

 view release on metacpan or  search on metacpan

lib/Amazon/S3/Constants.pm  view on Meta::CPAN

Readonly our $HTTP_NO_CONTENT        => 204;
Readonly our $HTTP_BAD_REQUEST       => 400;
Readonly our $HTTP_UNAUTHORIZED      => 401;
Readonly our $HTTP_PAYMENT_RQUIRED   => 402;
Readonly our $HTTP_FORBIDDEN         => 403;
Readonly our $HTTP_NOT_FOUND         => 404;
Readonly our $HTTP_CONFLICT          => 409;
Readonly our $HTTP_MOVED_PERMANENTLY => 301;
Readonly our $HTTP_FOUND             => 302;
Readonly our $HTTP_SEE_OTHER         => 303;
Readonly our $HTTP_NOT_MODIFIED      => 304;

 view all matches for this distribution


Amazon-S3Curl-PurePerl

 view release on metacpan or  search on metacpan

lib/Amazon/S3Curl/PurePerl.pm  view on Meta::CPAN

    return $args;
}

sub url_exists {
    my $self = shift;
    my @args = grep { !/-f/ } @{ $self->head_cmd }; #take out fail mode, want to parse and look for the 404.
    log_info { "running " . join( " ", @_ ) } @args;
    my @output = capture( @args );
    die "no output received!" unless @output;
    return 1 if $output[0] =~ /200 OK/;
    return 0 if $output[0] =~ /404 Not Found/;
    die "url_exists did not find a 200 or 404: $output[0]";
}

sub _exec {
    my($self,$method) = @_;
    my $meth = $method."_cmd";

lib/Amazon/S3Curl/PurePerl.pm  view on Meta::CPAN

    my $cmd = $s3curl->download_cmd;
    system(@$cmd);

=head2 url_exists

Check to see if a given url returns a 404 or 200. return 1 if 200, return 0 if 404, die otherwise.

=head1 LICENSE

This library is free software and may be distributed under the same terms as perl itself.

 view all matches for this distribution


Amethyst

 view release on metacpan or  search on metacpan

Amethyst/Brain/Infobot/Module/Zippy.pm  view on Meta::CPAN

Quick, sing me the BUDAPEST NATIONAL ANTHEM!!
RELATIVES!!
Remember, in 2039, MOUSSE & PASTA will be available ONLY by prescription!! 
RHAPSODY in Glue!
SANTA CLAUS comes down a FIRE ESCAPE wearing bright blue LEG WARMERS ... He scrubs the POPE with a mild soap or detergent for 15 minutes, starring JANE FONDA!!
Send your questions to ``ASK ZIPPY'', Box 40474, San Francisco, CA 94140, USA
SHHHH!!  I hear SIX TATTOOED TRUCK-DRIVERS tossing ENGINE BLOCKS into empty OIL DRUMS ...
Should I do my BOBBIE VINTON medley?
Should I get locked in the PRINCICAL'S OFFICE today -- or have a VASECTOMY??
Should I start with the time I SWITCHED personalities with a BEATNIK hair stylist or my failure to refer five TEENAGERS to a good OCULIST? Sign my PETITION.
So this is what it feels like to be potato salad

 view all matches for this distribution


Amon2-Lite

 view release on metacpan or  search on metacpan

lib/Amon2/Lite.pm  view on Meta::CPAN

                        'Content-Length' => length($content),
                    ],
                    [$content]
                );
            } else {
                return $c->res_404();
            }
        }
    };

    my $tmpl_dir = File::Spec->catdir(dirname((caller(0))[1]), 'tmpl');

 view all matches for this distribution


Amon2-Plugin-Web-CSRFDefender

 view release on metacpan or  search on metacpan

t/009_csrf_defender.t  view on Meta::CPAN

        } elsif ($c->req->path_info eq '/finished') {
            return $c->create_response(200, [], ['OK']);
        } elsif ($c->req->path_info eq '/get_csrf_defender_token') {
            return $c->create_response(200, [], [$c->get_csrf_defender_token]);
        } else {
            return $c->create_response(404, [], []);
        }
    }
    my $session = HTTP::Session::Store::OnMemory->new();
    __PACKAGE__->load_plugins(
        'Web::CSRFDefender' => {},

 view all matches for this distribution


Amon2-Plugin-Web-ChromeLogger

 view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

                200,
                [],
                ['kai'],
            );
        }
        return $c->create_response(404, [], []);
    }
    __PACKAGE__->load_plugins('Web::ChromeLogger');
}

my $mech = Test::WWW::Mechanize::PSGI->new(app => MyApp::Web->to_app);

 view all matches for this distribution


Amon2-Plugin-Web-HTTPSession

 view release on metacpan or  search on metacpan

t/003_session.t  view on Meta::CPAN

        } elsif ($c->request->path_info eq '/step2') {
            return $c->render('step2');
        } elsif ($c->request->path_info eq '/step3') {
            return $c->render('step3');
        } else {
            return $c->create_response(404, [], []);
        }
    }

    __PACKAGE__->load_plugins(
        'Web::HTTPSession' => {

 view all matches for this distribution


Amon2-Plugin-Web-Maintenance

 view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

        }
        elsif ( $c->request->path_info eq '/user' ) {
            return $c->create_response( 200, [], [] );
        }
        else {
            return $c->create_response( 404, [], [] );
        }
    }

    __PACKAGE__->load_plugins('Web::Maintenance');
}

 view all matches for this distribution


Amon2-Plugin-Web-Woothee

 view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

                200,
                [],
                [ $c->woothee->name ],
            );
        }
        return $c->create_response(404, [], []);
    }
    __PACKAGE__->load_plugins('Web::Woothee');
}

my $agent = {

 view all matches for this distribution


Amon2-Web-Dispatcher-RouterSimple-Extended

 view release on metacpan or  search on metacpan

lib/Amon2/Web/Dispatcher/RouterSimple/Extended.pm  view on Meta::CPAN

    if (my $p = $class->match($req->env)) {
        my $action = $p->{action};
        $c->{args} = $p;
        "@{[ ref Amon2->context ]}::C::$p->{controller}"->$action($c, $p);
    } else {
        $c->res_404();
    }
}

1;
__END__

 view all matches for this distribution


Amon2

 view release on metacpan or  search on metacpan

eg/apps/DeepNamespace/lib/DeepNamespace/Web/Admin/Dispatcher.pm  view on Meta::CPAN

sub dispatch {
    my ($class, $c) = @_;
    if ($c->request->path_info eq '/') {
        return DeepNamespace::Web::Admin::C::Root->index($c);
    } else {
        return $c->res_404();
    }
}

1;

 view all matches for this distribution


Anarres-Mud-Driver

 view release on metacpan or  search on metacpan

Compiler/parser.c  view on Meta::CPAN

   209,   211,   215,   216,   218,   221,   223,   226,   230,   234,
   236,   238,   242,   246,   250,   254,   258,   262,   266,   270,
   274,   278,   282,   286,   288,   294,   296,   300,   304,   308,
   312,   316,   318,   322,   326,   330,   334,   338,   342,   344,
   348,   352,   356,   360,   364,   368,   372,   376,   378,   381,
   384,   387,   390,   393,   396,   398,   401,   404,   406,   412,
   421,   423,   425,   426,   428,   430,   432,   434,   436,   438,
   440,   442,   444,   449,   453,   458,   464,   469,   475,   482,
   486,   487,   491,   496,   497,   500,   504,   511,   512,   515,
   519,   520,   522,   524,   527,   529,   533,   536,   537,   540,
   542,   544,   547,   548,   551,   554,   556,   560,   564,   566,

Compiler/parser.c  view on Meta::CPAN

{
			amd_yyval.av = amd_yyvsp[0].av;
		;
    break;}
case 154:
#line 1404 "parser.y"
{
			av_push(amd_yyvsp[-1].av, &PL_sv_undef);	/* XXX Fix L_ELLIPSIS */
			amd_yyval.av = amd_yyvsp[-1].av;
		;
    break;}

 view all matches for this distribution


Antispam-Toolkit

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 1385f1352c201994fc48e0da7717ef4616bafab2 lib/Antispam/Toolkit/Types.pm
SHA1 3f9dd4143fd85e2d36b526cc8f4d8681c6bc7b63 lib/Antispam/Toolkit/Types/Internal.pm
SHA1 632bc860a1d7914f9fc4fb67a0d806bc48e2aa47 t/BerkeleyDB.t
SHA1 b3a92fa4f21a0729d45457b63c04f0d878cfa73d t/Result.t
SHA1 2c4cbfe49b8ede97f88a8c31ceabf84ec5ee0a2a t/data/listed_email_7.txt
SHA1 e6d1b74040e4e5722fd4b94eb472349706ea5a0b t/data/more_email.txt
SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 f77552b82463a39324fd2a13ae15d2c146213bf5 t/release-pod-coverage.t
SHA1 ce3cd60596d39a197c70ad6335346e6be6c845ef t/release-pod-spell.t

 view all matches for this distribution


Antispam-httpBL

 view release on metacpan or  search on metacpan

SIGNATURE  view on Meta::CPAN

SHA1 f5b1b241cc014a09ebd7995ff99fd2b7556be301 lib/Antispam/httpBL.pm
SHA1 093f77a04cc0612c8dcd98123e2ce1d982f6a573 t/httpBL.t
SHA1 a032c41ef6887fab1b900669c2d304fab46680e2 t/release-eol.t
SHA1 961a1e2c92d836c8cad2d34b784cbc75345dec63 t/release-kwalitee.t
SHA1 455d1dd1867212a665ad5ea4126b572411de300c t/release-no-tabs.t
SHA1 9433c240fe590bc404ab68ff63984df763e347ed t/release-pod-coverage.t
SHA1 b30cbdfaf935017c4568c0c91b242438cb87786e t/release-pod-syntax.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iEYEARECAAYFAkzr7pcACgkQIgMCsV8qvRLd9ACcD2XxgU/M8y+zIRFbG/76EmHm

 view all matches for this distribution


Any-Daemon-HTTP

 view release on metacpan or  search on metacpan

lib/Any/Daemon/HTTP.pod  view on Meta::CPAN

Translate incoming request paths into browser redirects.

=item * dynamic content handlers per VirtualHost

When there is no matching file, a handler will be called to produce the
required information.  The default handler will produce 404 errors.

=item * dynamic content caching

Reduce transmitting dynamic content using C<ETag> and C<MD5>'s

 view all matches for this distribution


Any-Moose

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

xt/author/00-compile.t
xt/author/eol.t
xt/author/kwalitee.t
xt/author/mojibake.t
xt/author/no-tabs.t
xt/author/pod-no404s.t
xt/author/pod-spell.t
xt/author/pod-syntax.t
xt/author/portability.t
xt/release/changes_has_content.t
xt/release/cpan-changes.t

 view all matches for this distribution


AnyData

 view release on metacpan or  search on metacpan

t/56962.log  view on Meta::CPAN

192.168.192.149 - - [31/Mar/2010:00:01:12 +0800] "GET /cgi-bin/john/index.fcgi HTTP/1.0" 200 7150 58.34.84.149
192.168.208.92 - - [31/Mar/2010:00:01:12 +0800] "GET /cgi-bin/bill/bill.fcgi?tm=1 HTTP/1.0" 200 890 117.136.9.58
192.168.192.149 - - [31/Mar/2010:00:01:12 +0800] "GET /cgi-bin/john/flowjohn.fcgi?tm=3 HTTP/1.0" 200 1481 116.52.145.132
192.168.192.148 - - [31/Mar/2010:00:01:12 +0800] "GET /cgi-bin/bill/index.fcgi HTTP/1.0" 200 8805 119.john.197.17
192.168.192.148 - - [31/Mar/2010:00:01:13 +0800] "GET /cgi-bin/bill/index.fcgi HTTP/1.0" 200 8805 116.23.13.232
192.168.208.92 - - [31/Mar/2010:00:01:13 +0800] "GET /_vti_bin/owssvr.dll?UL=1&ACT=4&BUILD=8164&STRMVER=4&CAPREQ=0 HTTP/1.0" 404 217 58.255.32.1
192.168.208.92 - - [31/Mar/2010:00:01:14 +0800] "GET /cgi-bin/john/index.fcgi HTTP/1.0" 200 7145 58.255.32.1
192.168.208.92 - - [31/Mar/2010:00:01:14 +0800] "GET /bill/job_gz_2010.html? HTTP/1.0" 200 17987 60.29.168.46
192.168.192.149 - - [31/Mar/2010:00:01:15 +0800] "GET /cgi-bin/bill/index.fcgi HTTP/1.0" 200 8803 113.115.183.77
192.168.208.92 - - [31/Mar/2010:00:01:15 +0800] "GET /MSOffice/cltreq.asp?UL=1&ACT=4&BUILD=8164&STRMVER=4&CAPREQ=0 HTTP/1.0" 404 217 58.255.32.1
192.168.192.149 - - [31/Mar/2010:00:01:15 +0800] "GET /cgi-bin/john/flowjohn.fcgi?tm=2 HTTP/1.0" 200 1483 116.52.145.132
192.168.192.148 - - [31/Mar/2010:00:01:15 +0800] "GET /cgi-bin/bill/index.fcgi HTTP/1.0" 200 8809 58.214.34.75
192.168.208.93 - - [31/Mar/2010:00:01:16 +0800] "GET /cgi-bin/bill/logoutbill.fcgi HTTP/1.0" 200 9191 218.200.118.202
192.168.208.93 - - [31/Mar/2010:00:01:16 +0800] "GET /bill/job_sy.html? HTTP/1.0" 200 10603 218.200.118.202
192.168.208.93 - - [31/Mar/2010:00:01:18 +0800] "GET /cgi-bin/bill/flow.fcgi?tm=0 HTTP/1.0" 200 1196 221.4.154.10

 view all matches for this distribution


AnyEvent-BitTorrent

 view release on metacpan or  search on metacpan

t/800_utils/Tracker/HTTP.pm  view on Meta::CPAN

    );
}

sub on_read {
    my ($s, $h, $fh, $ip, $port) = @_;
    my ($status, $body) = ('404 EH!?', 'Sorry. Play again.');
    if ($h->rbuf =~ s[^GET (.+?)(?:\?(.+))? HTTP/1\.(\d)\015\012][]) {
        my ($path, $args, $ver) = ($1, $2, $3);
        my %args = map { m[^(.+?)(?:=(.*))?$]; $1 => $2; }
            split qr[[&;]], $args;
        my %headers = map { m[^(.+?)\s*:\s*(.+)$]; $1 => $2; }

 view all matches for this distribution


AnyEvent-CurrentCost

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/release-common_spelling.t
t/release-kwalitee.t
t/release-no-tabs.t
t/release-pod-coverage.t
t/release-pod-linkcheck.t
t/release-pod-no404s.t
t/release-pod-syntax.t
t/release-synopsis.t

 view all matches for this distribution


AnyEvent-DAAP-Server

 view release on metacpan or  search on metacpan

lib/AnyEvent/DAAP/Server.pm  view on Meta::CPAN

sub _database_container_items {
    my ($self, $connection, $req, $args) = @_;
    # $args->{database_id}, $args->{container_id}

    my $playlist = $self->playlists->{ $args->{container_id} }
        or return $connection->respond(404);

    my $tracks = $self->__format_tracks_as_dmap($req, scalar $playlist->tracks);
    $connection->respond_dmap([[
        'daap.playlistsongs' => [
            [ 'dmap.status'              => 200 ],

lib/AnyEvent/DAAP/Server.pm  view on Meta::CPAN

sub _database_item {
    my ($self, $connection, $req, $args) = @_;
    # $args->{database_id}, $args->{item_id}

    my $track = $self->tracks->{ $args->{item_id} }
        or return $connection->respond(404);

    $track->stream($connection, $req, $args);
}

sub __format_tracks_as_dmap {

 view all matches for this distribution


AnyEvent

 view release on metacpan or  search on metacpan

lib/AnyEvent.pm  view on Meta::CPAN

   Lambda/AnyEvent         0.327 sec
      + optimized          0.138 sec
   Raw sockets/select      0.077 sec
   POE/select, components  0.662 sec
   POE/select, raw sockets 0.226 sec
   POE/select, optimized   0.404 sec

   AnyEvent/select/nb      0.085 sec
   AnyEvent/EV/nb          0.068 sec
      +state machine       0.134 sec

 view all matches for this distribution


( run in 2.211 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )