view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

MANIFEST			This list of files
META.yml
net_drizzle.h
ppport.h
Query.xs
README
Result.xs
Result.xs.mt
t/00_compile.t
t/01_new.t
t/02_prefs.t
t/03_escape.t
t/04_con.t
t/05_version.t
t/06_constants.t
t/07_con_data.t
t/08_protocol_version.t
t/900_regression/01_foo.t
tools/get_constants.pl
typemap
xt/01_live/01_simple_multi.t

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

            return $1;
        }
    } elsif (-e "_darcs") {
        # defaultrepo is better, but that is more likely to be ssh, not http
        if (my $query_repo = `darcs query repo`) {
            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {
        if ($execute->('hg paths') =~ /default = (.*)$/m) {
            my $mercurial_url = $1;
            $mercurial_url =~ s!^ssh://hg\@(bitbucket\.org/)!https://$1!;
            return $mercurial_url;
        }