Acme-Perl-Consensual

 view release on metacpan or  search on metacpan

META.ttl  view on Meta::CPAN

@prefix cpan:  <http://purl.org/NET/cpan-uri/person/> .
@prefix cpant: <http://purl.org/NET/cpan-uri/terms#> .
@prefix dbug:  <http://ontologi.es/doap-bugs#> .
@prefix dc:    <http://purl.org/dc/terms/> .
@prefix dcs:   <http://ontologi.es/doap-changeset#> .
@prefix dist:  <http://purl.org/NET/cpan-uri/dist/Acme-Perl-Consensual/> .
@prefix doap:  <http://usefulinc.com/ns/doap#> .
@prefix foaf:  <http://xmlns.com/foaf/0.1/> .
@prefix nfo:   <http://www.semanticdesktop.org/ontologies/2007/03/22/nfo#> .
@prefix rdfs:  <http://www.w3.org/2000/01/rdf-schema#> .
@prefix xsd:   <http://www.w3.org/2001/XMLSchema#> .

dist:project
	a                 doap:Project;
	doap:name         "Acme-Perl-Consensual";
	cpant:readme_from [
		a nfo:FileDataObject;
		a nfo:SourceCode;
		rdfs:label "Acme::Perl::Consensual";

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

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;

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

#line 1
##
# name:      Module::Install::Package
# abstract:  Module::Install support for Module::Package
# author:    Ingy döt Net <ingy@cpan.org>
# license:   perl
# copyright: 2011
# see:
# - Module::Package

# This module contains the Module::Package logic that must be available to
# both the Author and the End User. Author-only logic goes in a
# Module::Package::Plugin subclass.
package Module::Install::Package;
use strict;
use Module::Install::Base;
use vars qw'@ISA $VERSION';
@ISA = 'Module::Install::Base';
$VERSION = '0.30';

#-----------------------------------------------------------------------------#
# XXX BOOTBUGHACK

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

sub _load_dist_plugin {
    my ($self, $spec, $namespace) = @_;
    $spec ||= '';
    $namespace ||= 'Module::Package::Dist';
    my $r = eval { $self->_load_plugin($spec, $namespace); };
    return $r if ref $r;
    return;
}

#-----------------------------------------------------------------------------#
# These are the user side analogs to the author side plugin API calls.
# Prefix with '_' to not pollute Module::Install plugin space.
#-----------------------------------------------------------------------------#
sub _initial {
    my ($self) = @_;
}

sub _main {
    my ($self) = @_;
}

meta/changes.pret  view on Meta::CPAN

# This file acts as the project's changelog.

`Acme-Perl-Consensual 0.000_01 cpan:TOBYINK`
	issued  2012-07-05;
	label   "Preview release";
	.

`Acme-Perl-Consensual 0.000_02 cpan:TOBYINK`
	issued  2012-07-26;
	changeset [
		item "Bundle perlhist info in __DATA__."^^Change;