view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension APR::Emulate::PSGI.

0.03  Sat Mar 15 21:57:10 2014
	- Added dependency requirements to Makefile.

0.02  Fri Feb 28 22:24:11 2014
	- Added some unit tests, documentation, and fleshed out the API a bit.

0.01  Mon May 27 10:42:45 2013
	- original version; created by h2xs 1.23 with options
		-AXn APR::Emulate::PSGI --skip-exporter --compat-version 5.6.0

inc/Module/Install/Repository.pm  view on Meta::CPAN

        $self->repository($repo);
    } else {
        warn "Cannot determine repository URL\n";
    }
}

sub _find_repo {
    my ($execute) = @_;

    if (-e ".git") {
        # TODO support remote besides 'origin'?
        if ($execute->('git remote show -n origin') =~ /URL: (.*)$/m) {
            # XXX Make it public clone URL, but this only works with github
            my $git_url = $1;
            $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!;
            return $git_url;
        } elsif ($execute->('git svn info') =~ /URL: (.*)$/m) {
            return $1;
        }
    } elsif (-e ".svn") {
        if (`svn info` =~ /URL: (.*)$/m) {
            return $1;

lib/APR/Emulate/PSGI.pm  view on Meta::CPAN

=item read

Emulates L<Apache2::RequestIO/read>.

=cut

sub read {
    my ($self, $buffer, $length, $offset) = @_;
    $offset ||= 0;
    # We use $_[1] instead of $buffer, because we need to modify the original instead of a copy.
    if ($self->{'cgi_mode'}) {
        return CORE::read(\*STDIN, $_[1], $length, $offset);
    }
    return $self->{'psgi_env'}{'psgi.input'}->read($_[1], $length, $offset);
}

=item pool

Emulates L<Apache2::RequestRec/pool>.