This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 1.000000-source
in repository libdist-zilla-role-bootstrap-perl.

commit dd3569b1f3c804ba9552d78b659e1d7985c9b1f4
Author: Kent Fredric <kentfred...@gmail.com>
Date:   Sat Apr 5 17:47:24 2014 +1300

    git subrepo clone https://github.com/kentfredric/travis-scripts.git 
maint-travis-ci
    
    {"local":
      {"subdir":  "maint-travis-ci"
      ,"action":  "clone"}
    ,"remote":
      {"url":     "https://github.com/kentfredric/travis-scripts.git";
      ,"branch":  "master"
      ,"commit":  "7c80dff"}
    ,"git-subrepo":
      {"version": "0.1.0"
      ,"commit":  "26a8088"
      ,"origin":  "g...@github.com:git-commands/git-subrepo.git"}}
---
 maint-travis-ci/.gitrepo              |  11 ++
 maint-travis-ci/.perltidyrc           |   2 +
 maint-travis-ci/README.mkdn           |  53 +++++++++
 maint-travis-ci/before_script.pl      |  31 ++++++
 maint-travis-ci/branch_reset.pl       |  51 +++++++++
 maint-travis-ci/create_github_repo.pl |  38 +++++++
 maint-travis-ci/install_deps.pl       |  87 +++++++++++++++
 maint-travis-ci/install_deps_early.pl |  47 ++++++++
 maint-travis-ci/lib/tools.pm          | 204 ++++++++++++++++++++++++++++++++++
 maint-travis-ci/merge_travis_yml.pl   |  31 ++++++
 maint-travis-ci/report_fail_ctx.pl    |  13 +++
 maint-travis-ci/script.pl             |  35 ++++++
 maint-travis-ci/sterilize_env.pl      |  23 ++++
 maint-travis-ci/sync_tree.pl          |  81 ++++++++++++++
 maint-travis-ci/travis_enable.pl      |  88 +++++++++++++++
 maint-travis-ci/yamls/sterile.mkdn    |  54 +++++++++
 maint-travis-ci/yamls/sterile.yaml    |  42 +++++++
 maint-travis-ci/yamls/sterile2.yaml   |  50 +++++++++
 18 files changed, 941 insertions(+)

diff --git a/maint-travis-ci/.gitrepo b/maint-travis-ci/.gitrepo
new file mode 100644
index 0000000..7ed6a9c
--- /dev/null
+++ b/maint-travis-ci/.gitrepo
@@ -0,0 +1,11 @@
+; DO NOT EDIT (unless you know what you are doing)
+;
+; This subdirectory is a git "subrepo", and this file is maintained by the
+; git-subrepo command. See https://github.com/git-commands/git-subrepo#readme
+;
+[subrepo]
+       remote = https://github.com/kentfredric/travis-scripts.git
+       branch = master
+       commit = 7c80dffae0d7e39b20582e368d85c290429219fa
+       parent = 3449414c2ca55a43396b1418ed224f37ca84fac9
+       cmdver = 0.1.0
diff --git a/maint-travis-ci/.perltidyrc b/maint-travis-ci/.perltidyrc
new file mode 100644
index 0000000..3af28b5
--- /dev/null
+++ b/maint-travis-ci/.perltidyrc
@@ -0,0 +1,2 @@
+-i 2
+-l 130
diff --git a/maint-travis-ci/README.mkdn b/maint-travis-ci/README.mkdn
new file mode 100644
index 0000000..80d1add
--- /dev/null
+++ b/maint-travis-ci/README.mkdn
@@ -0,0 +1,53 @@
+# ABOUT
+
+This repository contains a directory full of utilities to bolt on
+to CPAN-targeting distributions, to add useful `travis-ci` features to those 
dists.
+
+# PREREQS
+
+All that is needed at present to get started, is a copy of `git` that provides 
`git subtree`, and a copy of `Path::FindDev` from `CPAN`.
+
+You don't need `Path::FindDev` during deployment, its just used to streamline
+automated patching.
+
+# INSTALLING
+
+First, check out a copy of these scripts, it can be a temporary directory,
+and you'll only need to do this once.
+
+```shell
+$ mkdir /tmp/tci-scripts
+$ cd    /tmp/tci-scripts
+$ git   clone https://github.com/kentfredric/travis-scripts.git
+```
+
+Then, chdir to the root of your project
+
+```shell
+$ chdir $PROJECT
+```
+
+And lastly, execute the installer
+
+```shell
+$ /tmp/tci-scripts/sync_tree.pl
+```
+
+This will create the folder called `maint-travis-ci` within your distribution,
+with a tree installed by `git subtree`, which will track this distribution.
+
+To update your copy of `/maint-travis-ci` to the latest, simply execute
+
+```shell
+$ $PROJECT/maint-travis-ci/sync_tree.pl
+```
+
+While somewhere in your project.
+
+# CAVEATS
+
+Note, this tool uses `Path::FindDev`, and by proxy, `Path::IsDev` to find a 
development
+root directory somewhere in the ancestry of `$CWD`.
+
+As such, you will likely need to appease `Path::IsDev` by having a file of 
some description that
+marks the root of the development tree.
diff --git a/maint-travis-ci/before_script.pl b/maint-travis-ci/before_script.pl
new file mode 100644
index 0000000..f852b51
--- /dev/null
+++ b/maint-travis-ci/before_script.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_exists('STERILIZE_ENV') ) {
+  diag("\e[31mSTERILIZE_ENV \e[32munset\e[0m, skipping");
+  exit 0;
+}
+if ( env_is( 'TRAVIS_BRANCH', 'master' ) ) {
+  diag("before_script skipped, TRAVIS_BRANCH=master");
+  exit 0;
+}
+else {
+  if ( -e './Build.PL' ) {
+    safe_exec( $^X, './Build.PL' );
+    safe_exec("./Build");
+    exit 0;
+  }
+  if ( -e './Makefile.PL' ) {
+    safe_exec( $^X, './Makefile.PL' );
+    safe_exec("make");
+    exit 0;
+  }
+
+}
+
diff --git a/maint-travis-ci/branch_reset.pl b/maint-travis-ci/branch_reset.pl
new file mode 100644
index 0000000..0cc2257
--- /dev/null
+++ b/maint-travis-ci/branch_reset.pl
@@ -0,0 +1,51 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_true('TRAVIS') ) {
+  diag('Is not running under travis!');
+  exit 1;
+}
+diag("Resetting branch to \e[32m$ENV{TRAVIS_BRANCH}\e[0m @ 
\e[33m$ENV{TRAVIS_COMMIT}\e[0m");
+git( 'checkout', $ENV{TRAVIS_BRANCH} );
+git( 'reset', '--hard', $ENV{TRAVIS_COMMIT} );
+my $goodtag;
+do {
+  my ( $output, $return ) = capture_stdout {
+    safe_exec_nonfatal( 'git', 'describe', '--tags', '--abbrev=0', 
$ENV{TRAVIS_BRANCH} );
+  };
+  ($goodtag) = split /\n/, $output;
+  if ( not $return ) {
+    diag("TIP Version tag is \e[32m$goodtag\e[0m");
+  }
+};
+my %good_tags;
+do {
+  my $output = capture_stdout {
+    git( 'log', '--simplify-by-decoration', '--pretty=format:%d' );
+  };
+  for my $line ( split /\n/, $output ) {
+    if ( $line =~ /\(tag:\s+(.*)\)/ ) {
+      my $tag = $1;
+      diag("Good tag: \e[32m$tag\e[0m");
+      $good_tags{$tag} = 1;
+    }
+    else {
+      diag("Line not matched regexp: <\e[31m$line\e[0m>");
+    }
+  }
+};
+do {
+  my $output = capture_stdout {
+    git('tag');
+  };
+  for my $line ( split /\n/, $output ) {
+    next if $good_tags{$line};
+    diag("Bad tag: \e[31m$line\e[0m");
+    git( 'tag', '-d', $line );
+  }
+};
diff --git a/maint-travis-ci/create_github_repo.pl 
b/maint-travis-ci/create_github_repo.pl
new file mode 100755
index 0000000..3499778
--- /dev/null
+++ b/maint-travis-ci/create_github_repo.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+# FILENAME: create_github_repo.pl
+# CREATED: 12/21/13 22:40:10 by Kent Fredric (kentnl) <kentfred...@gmail.com>
+# ABSTRACT: Create a github repo for the current repository
+
+use strict;
+use warnings;
+use utf8;
+use Carp qw(croak);
+
+sub _git_config {
+  my $key = shift;
+  chomp( my $value = `git config --get $key` );
+  croak "Unknown $key" unless $value;
+  return $value;
+}
+
+if ( not @ARGV == 2 ) {
+  die "$0 Repo-Name-Here \"Some Description\"";
+}
+
+my $github_user  = _git_config('github.user');
+my $github_token = _git_config('github.token');
+
+use Net::GitHub;
+my $gh = Net::GitHub->new( access_token => $github_token );
+my $reponame = "git\@github.com:" . $github_user . "/" . $ARGV[0] . ".git";
+print "Creating $reponame \n";
+
+my $rp = $gh->repos->create(
+  {
+    name        => $ARGV[0],
+    description => $ARGV[1],
+  }
+);
+
+system( 'git', 'remote', 'add', 'origin', $reponame );
+
diff --git a/maint-travis-ci/install_deps.pl b/maint-travis-ci/install_deps.pl
new file mode 100644
index 0000000..ab7277c
--- /dev/null
+++ b/maint-travis-ci/install_deps.pl
@@ -0,0 +1,87 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_exists('TRAVIS') ) {
+  diag('Is not running under travis!');
+  exit 1;
+}
+if ( not env_exists('STERILIZE_ENV') ) {
+  diag("\e[31STERILIZE_ENV is not set, skipping, because this is probably 
Travis's Default ( and unwanted ) target");
+  exit 0;
+}
+if ( env_is( 'TRAVIS_BRANCH', 'master' ) and env_is( 'TRAVIS_PERL_VERSION', 
'5.8' ) ) {
+  diag("\e[31minstalldeps skipped on 5.8 on master, because \@Git, a 
dependency of \@Author::KENTNL, is unavailble on 5.8\e[0m");
+  exit 0;
+}
+my (@params) = qw[ --quiet --notest --mirror http://cpan.metacpan.org/ 
--no-man-pages ];
+if ( env_true('DEVELOPER_DEPS') ) {
+  push @params, '--dev';
+}
+if ( env_is( 'TRAVIS_BRANCH', 'master' ) ) {
+  cpanm( @params, 'Devel::Confess' );
+  $ENV{PERL5OPT} = '-MDevel::Confess';
+  cpanm( @params, 'Dist::Zilla', 'Capture::Tiny',      'Pod::Weaver' );
+  cpanm( @params, '--dev',       'Dist::Zilla~>5.002', 'Pod::Weaver' );
+  safe_exec( 'git', 'config', '--global', 'user.email', 
'kentfredric+travi...@gmail.com' );
+  safe_exec( 'git', 'config', '--global', 'user.name',  'Travis CI ( On behalf 
of Kent Fredric )' );
+
+  my $stdout = capture_stdout {
+    safe_exec( 'dzil', 'authordeps', '--missing' );
+  };
+
+  if ( $stdout !~ /^\s*$/msx ) {
+    cpanm( @params, split /\n/, $stdout );
+  }
+  $stdout = capture_stdout {
+    safe_exec( 'dzil', 'listdeps', '--author', '--versions', '--missing' );
+  };
+
+  if ( $stdout !~ /^\s*$/msx ) {
+    my @deps = split /\n/, $stdout;
+    my @parsedeps;
+    for my $dep ( split /\n/, $stdout ) {
+      diag("Missing: \e[31m$dep\e[0m");
+      if ( $dep =~ /^\s*([^=\s]+)\s*=\s*(.*$)/ ) {
+        my ( $module, $version ) = ( $1, $2 );
+        diag("Module: \e[31m$module\e[0m -> \e[32m$version\e[0m");
+        if ( $version =~ /^\s*0\s*$/ ) {
+          push @parsedeps, $module;
+          next;
+        }
+        if ( $version =~ /^v?[0-9._]+/ ) {
+          push @parsedeps, "$module~>=$version";
+          next;
+        }
+        push @parsedeps, "$module~$version";
+      }
+    }
+    cpanm( @params, @parsedeps );
+  }
+}
+else {
+  cpanm( @params, '--installdeps', '.' );
+  if ( env_true('AUTHOR_TESTING') or env_true('RELEASE_TESTING') ) {
+    my $prereqs = parse_meta_json()->effective_prereqs;
+    my $reqs = $prereqs->requirements_for( 'develop', 'requires' );
+    my @wanted;
+
+    for my $want ( $reqs->required_modules ) {
+      my $module_requirement = $reqs->requirements_for_module($want);
+      if ( $module_requirement =~ /^\d/ ) {
+        push @wanted, $want . '~>=' . $module_requirement;
+        next;
+      }
+      push @wanted, $want . '~' . $module_requirement;
+    }
+    cpanm( @params, @wanted );
+
+  }
+}
+
+exit 0;
diff --git a/maint-travis-ci/install_deps_early.pl 
b/maint-travis-ci/install_deps_early.pl
new file mode 100644
index 0000000..9a750df
--- /dev/null
+++ b/maint-travis-ci/install_deps_early.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_exists('TRAVIS') ) {
+  diag('Is not running under travis!');
+  exit 1;
+}
+if ( not env_exists('STERILIZE_ENV') ) {
+  diag("\e[31STERILIZE_ENV is not set, skipping, because this is probably 
Travis's Default ( and unwanted ) target");
+  exit 0;
+}
+
+# See https://github.com/dbsrgits/dbix-class/commit/8c11c33f8
+safe_exec_nonfatal( 'sudo', 'ip6tables', '-I', 'OUTPUT', '-d', 
'api.metacpan.org', '-j', 'REJECT' );
+my (@params) = qw[ --quiet --notest --mirror http://cpan.metacpan.org/ 
--no-man-pages ];
+my ($branch) = $ENV{TRAVIS_BRANCH};
+my ($prefix) = './.travis_early_installdeps.';
+
+$branch =~ s{/}{_}g;
+my ($depsfile)   = ( $prefix . $branch );
+my ($paramsfile) = ( $prefix . 'params.' . $branch );
+
+if ( not( -e $depsfile and -f $depsfile ) ) {
+  diag("\e[31m$depsfile does not exist, no extra deps\e[0m");
+  exit 0;
+}
+
+my (@deps) = split /\n/, do {
+  open my $fh, '<', $depsfile;
+  local $/ = undef;
+  scalar <$fh>;
+};
+if ( -e $paramsfile and -f $paramsfile ) {
+  push @params, split /\n/, do {
+    open my $fh, '<', $paramsfile;
+    local $/ = undef;
+    scalar <$fh>;
+  };
+}
+cpanm( @params, @deps );
+exit 0;
diff --git a/maint-travis-ci/lib/tools.pm b/maint-travis-ci/lib/tools.pm
new file mode 100644
index 0000000..4d43163
--- /dev/null
+++ b/maint-travis-ci/lib/tools.pm
@@ -0,0 +1,204 @@
+use strict;
+use warnings;
+
+package tools;
+
+use Cwd qw(cwd);
+use Config;
+
+sub capture_stdout(&) {
+  require Capture::Tiny;
+  goto &Capture::Tiny::capture_stdout;
+}
+
+sub diag {
+  my $handle = \*STDERR;
+  for (@_) {
+    print {$handle} $_;
+  }
+  print {$handle} "\n";
+}
+
+sub env_exists {
+  return exists $ENV{ $_[0] };
+}
+
+sub env_true {
+  return ( env_exists( $_[0] ) and $ENV{ $_[0] } );
+}
+sub env_is { return ( env_exists( $_[0] ) and $ENV{ $_[0] } eq $_[1] ) }
+
+sub safe_exec_nonfatal {
+  my ( $command, @params ) = @_;
+  diag("running $command @params");
+  my $exit = system( $command, @params );
+  if ( $exit != 0 ) {
+    my $low  = $exit & 0b11111111;
+    my $high = $exit >> 8;
+    warn "$command failed: $? $! and exit = $high , flags = $low";
+    if ( $high != 0 ) {
+      return $high;
+    }
+    else {
+      return 1;
+    }
+
+  }
+  return 0;
+}
+
+sub safe_exec {
+  my ( $command, @params ) = @_;
+  my $exit_code = safe_exec_nonfatal( $command, @params );
+  if ( $exit_code != 0 ) {
+    exit $exit_code;
+  }
+  return 1;
+}
+
+sub cpanm {
+  my (@params) = @_;
+  my $cpanm_lines = 4000;
+  my $exit_code = safe_exec_nonfatal( 'cpanm', @params );
+  if ( $exit_code != 0 ) {
+    diag("\e[32m cpanm \e[0m failed, showing last \e[31m$cpanm_lines\e[0m 
lines");
+    safe_exec( 'tail', '-n', $cpanm_lines, '/home/travis/.cpanm/build.log' );
+    exit $exit_code;
+  }
+  return 1;
+}
+
+sub git {
+  my (@params) = @_;
+  safe_exec( 'git', @params );
+}
+
+my $got_fixes;
+
+sub get_fixes {
+  return if $got_fixes;
+  my $cwd = cwd();
+  chdir '/tmp';
+  safe_exec( 'git', 'clone', 'https://github.com/kentfredric/cpan-fixes.git' );
+  chdir $cwd;
+  $got_fixes = 1;
+}
+
+my $got_sterile;
+
+sub get_sterile {
+  return if $got_sterile;
+  my $cwd = cwd();
+  chdir '/tmp';
+  my $version = $];
+  safe_exec(
+    'git', 'clone', '--depth=1',
+    '--branch=' . $version,
+    'https://github.com/kentfredric/perl5-sterile.git',
+    'perl5-sterile'
+  );
+  chdir $cwd;
+  $got_sterile = 1;
+}
+my $fixed_up;
+
+sub fixup_sterile {
+  return if $fixed_up;
+  get_sterile();
+  my $cwd = cwd();
+  chdir '/tmp/perl5-sterile';
+  safe_exec( 'bash', 'patch_fixlist.sh', '/home/travis/perl5/perlbrew/perls/' 
. $ENV{TRAVIS_PERL_VERSION} );
+  chdir $cwd;
+  $fixed_up = 1;
+}
+my $sterile_deployed;
+
+sub deploy_sterile {
+  return if $sterile_deployed;
+  cpanm( '--skip-satisfied', 'Capture::Tiny' );
+  require Capture::Tiny;    # load before we oblitterate everything.
+
+  fixup_sterile();
+  for my $key ( keys %Config ) {
+    next unless $key =~ /(lib|arch)exp$/;
+    my $value = $Config{$key};
+    next unless defined $value;
+    next unless length $value;
+    my $clean_path = '/tmp/perl5-sterile/' . $key;
+    diag("\e[32m?$clean_path\e[0m");
+    if ( -e $clean_path and -d $clean_path ) {
+      diag("\e[31mRsyncing over $value\e[0m");
+      $clean_path =~ s{/?$}{/};
+      $value =~ s{/?$}{/};
+      safe_exec( 'rsync', '-a', '--delete-delay', $clean_path, $value );
+    }
+  }
+  for my $key ( keys %Config ) {
+    next unless $key =~ /(prefix|bin|scriptdir|script)exp$/;
+    my $value = $Config{$key};
+    next unless defined $value;
+    next unless length $value;
+    my $clean_path = '/tmp/perl5-sterile/' . $key;
+    diag("\e[32m?$clean_path\e[0m");
+    if ( -e $clean_path and -d $clean_path ) {
+      diag("\e[31mPre-Cleaning $value\e[0m");
+      my $content = capture_stdout {
+        safe_exec( 'find', $value, '-type', 'f', '-executable', '-print0' );
+      };
+      for my $file ( split /\0/, $content ) {
+        if ( -B $file ) {
+          diag("\e[33m: Protected\e[34m: $file\e[0m");
+          next;
+        }
+        unlink $file;
+        diag("\e[31m: Removed:\e[34m: $file\e[0m");
+      }
+      diag("\e[31mRsyncing over $value\e[0m");
+      $clean_path =~ s{/?$}{/};
+      $value =~ s{/?$}{/};
+      safe_exec( 'rsync', '-a', $clean_path, $value );
+    }
+  }
+}
+
+sub cpanm_fix {
+  my (@params) = @_;
+  get_fixes();
+  my $cwd = cwd();
+  chdir '/tmp/cpan-fixes';
+  cpanm(@params);
+  chdir $cwd;
+}
+
+sub parse_meta_json {
+  $_[0] ||= 'META.json';
+  require CPAN::Meta;
+  return CPAN::Meta->load_file( $_[0] );
+}
+
+sub import {
+  my ( $self, @args ) = @_;
+
+  my $caller = [caller]->[0];
+
+  my $caller_stash = do {
+    no strict 'refs';
+    *{ $caller . '::' };
+  };
+
+  $caller_stash->{diag}               = *diag;
+  $caller_stash->{env_exists}         = *env_exists;
+  $caller_stash->{env_true}           = *env_true;
+  $caller_stash->{env_is}             = *env_is;
+  $caller_stash->{safe_exec_nonfatal} = *safe_exec_nonfatal;
+  $caller_stash->{safe_exec}          = *safe_exec;
+  $caller_stash->{cpanm}              = *cpanm;
+  $caller_stash->{git}                = *git;
+  $caller_stash->{get_fixes}          = *get_fixes;
+  $caller_stash->{cpanm_fix}          = *cpanm_fix;
+  $caller_stash->{parse_meta_json}    = *parse_meta_json;
+  $caller_stash->{capture_stdout}     = *capture_stdout;
+  $caller_stash->{deploy_sterile}     = *deploy_sterile;
+}
+
+1;
diff --git a/maint-travis-ci/merge_travis_yml.pl 
b/maint-travis-ci/merge_travis_yml.pl
new file mode 100644
index 0000000..3dd5ae6
--- /dev/null
+++ b/maint-travis-ci/merge_travis_yml.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+
+use Path::FindDev qw( find_dev );
+
+my $hashref = {};
+
+my $template = find_dev('./')->child('.travis-template.yml');
+my $target   = find_dev('./')->child('.travis.yml');
+
+if ( -f -e $template ) {
+  require YAML::Loader;
+  my $loader = YAML::Loader->new();
+  $hashref = $loader->load( $template->slurp );
+}
+
+if ( not exists $hashref->{language} ) {
+  $hashref->{language} = 'perl';
+}
+if ( not exists $hashref->{perl} ) {
+  $hashref->{perl} = [ '5.18', '5.19' ];
+}
+
+use Data::Dump qw(pp);
+pp($hashref);
+require YAML::Dumper;
+my $dumper = YAML::Dumper->new();
+$target->spew( $dumper->dump($hashref) );
diff --git a/maint-travis-ci/report_fail_ctx.pl 
b/maint-travis-ci/report_fail_ctx.pl
new file mode 100644
index 0000000..8709ca0
--- /dev/null
+++ b/maint-travis-ci/report_fail_ctx.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+diag("\e[31mLast 4000 lines of cpanm build log\e[0m");
+safe_exec( 'tail', '-n', '4000', $ENV{HOME} . '/.cpanm/build.log' );
+
diff --git a/maint-travis-ci/script.pl b/maint-travis-ci/script.pl
new file mode 100644
index 0000000..6ed15eb
--- /dev/null
+++ b/maint-travis-ci/script.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_exists('TRAVIS') ) {
+  diag('Is not running under travis!');
+  exit 1;
+}
+if ( not env_exists('STERILIZE_ENV') ) {
+  diag("\e[31mSTERILIZE_ENV is not set, skipping, because this is probably 
Travis's Default ( and unwanted ) target");
+  exit 0;
+}
+if ( env_is( 'TRAVIS_BRANCH', 'master' ) and env_is( 'TRAVIS_PERL_VERSION', 
'5.8' ) ) {
+  diag("\e[31mscript skipped on 5.8 on master\e[32m, because \@Git, a 
dependency of \@Author::KENTNL, is unavailble on 5.8\e[0m");
+  exit 0;
+}
+if ( env_is( 'TRAVIS_BRANCH', 'master' ) ) {
+  $ENV{HARNESS_OPTIONS} = 'j100:c';
+  $ENV{PERL5OPT}        = '-MDevel::Confess';
+  safe_exec( 'dzil', 'test', '--release' );
+}
+else {
+  my @paths = './t';
+
+  if ( env_true('AUTHOR_TESTING') or env_true('RELEASE_TESTING') ) {
+    push @paths, './xt';
+  }
+  safe_exec( 'prove', '--blib', '--shuffle', '--color', '--recurse', 
'--timer', '--jobs', 30, @paths );
+}
diff --git a/maint-travis-ci/sterilize_env.pl b/maint-travis-ci/sterilize_env.pl
new file mode 100644
index 0000000..df9dc09
--- /dev/null
+++ b/maint-travis-ci/sterilize_env.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+if ( not env_exists('STERILIZE_ENV') ) {
+  diag("\e[31STERILIZE_ENV is not set, skipping, because this is probably 
Travis's Default ( and unwanted ) target");
+  exit 0;
+}
+if ( not env_true('STERILIZE_ENV') ) {
+  diag('STERILIZE_ENV unset or false, not sterilizing');
+  exit 0;
+}
+
+if ( not env_true('TRAVIS') ) {
+  diag('Is not running under travis!');
+  exit 1;
+}
+
+deploy_sterile();
diff --git a/maint-travis-ci/sync_tree.pl b/maint-travis-ci/sync_tree.pl
new file mode 100755
index 0000000..6ca79e6
--- /dev/null
+++ b/maint-travis-ci/sync_tree.pl
@@ -0,0 +1,81 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use tools;
+
+use Path::FindDev qw( find_dev );
+my $root = find_dev('./');
+
+chdir "$root";
+
+sub git_subtree {
+  safe_exec( 'git', 'subtree', @_ );
+}
+
+sub git_subrepo {
+  safe_exec( 'git', 'subrepo', @_ );
+}
+
+my $travis = 'https://github.com/kentfredric/travis-scripts.git';
+my $prefix = 'maint-travis-ci';
+
+my $opts = { pushas => 'incomming' };
+
+for my $id ( 0 .. $#ARGV ) {
+  my ($field) = $ARGV[$id];
+  next unless $field;
+  next unless $field =~ /^-+(.*?$)/;
+  my ($field_name) = $1;
+  my ($value)      = $ARGV[ $id + 1 ];
+  undef $ARGV[$id];
+  undef $ARGV[ $id + 1 ];
+  if ( $field_name eq 'push' ) {
+    $opts->{push}    = 1;
+    $opts->{push_to} = $value;
+    next;
+  }
+  if ( $field_name eq 'pushas' ) {
+    $opts->{pushas} = $value;
+    next;
+  }
+  if ( $field_name eq 'mc' ) {
+    $opts->{has_commit} = 1;
+    $opts->{commit}     = $value;
+    next;
+  }
+}
+if ( not $opts->{push} ) {
+  my $commitish = 'master';
+  $commitish = $opts->{commit} if $opts->{has_commit};
+
+  if ( not -d -e $root->child($prefix) ) {
+    if ( $ENV{"SUBREPO"} ) {
+      git_subrepo( 'clone', $travis, $prefix, '-b', $commitish );
+    }
+    else {
+      git_subtree( 'add', '--squash', '--prefix=' . $prefix, $travis, 
$commitish );
+    }
+  }
+  else {
+    if ( $ENV{"SUBREPO"} ) {
+      git_subrepo( 'pull', $prefix, '-b', $commitish );
+    }
+    else {
+
+      git_subtree(
+        'pull', '--squash', '-m',
+        'Synchronise git subtree maint-travis-ci',
+        '--prefix=' . $prefix,
+        $travis, $commitish
+      );
+    }
+  }
+}
+else {
+  die "NO!" if $ENV{"SUBREPO"};
+  git_subtree( 'push', '--prefix=' . $prefix, $opts->{push_to}, 
$opts->{pushas} );
+}
+
diff --git a/maint-travis-ci/travis_enable.pl b/maint-travis-ci/travis_enable.pl
new file mode 100755
index 0000000..a6b902b
--- /dev/null
+++ b/maint-travis-ci/travis_enable.pl
@@ -0,0 +1,88 @@
+#!/usr/bin/env perl
+use v5.10;
+use strict;
+use warnings;
+use Carp;
+use Net::GitHub;
+use Getopt::Lucid ':all';
+use Path::Tiny;
+use FindBin;
+
+my $yamls = path($FindBin::Bin)->child('yamls');
+
+my $opts = Getopt::Lucid->getopt(
+  [
+        #<<< No perltidy
+        Param('repo|r'),
+        #>>>
+  ]
+);
+
+$opts->validate;
+
+sub _detect_repo {
+  my ($origin) = grep { /origin/ } `git remote -v`;
+
+  die "Couldn't determine origin\n" unless $origin;
+
+  chomp $origin;
+  $origin =~ s/^origin\s+//;
+  $origin =~ s/\s+\(.*$//;
+  if ( $origin =~ m{^.+?://github.com/([^/]+)/(.+)\.git$} ) {
+    return [ $1, $2 ];
+  }
+  elsif ( $origin =~ m{^git\@github\.com:([^/]+)/(.+)\.git$} ) {
+    return [ $1, $2 ];
+  }
+  else {
+    die "Can't determine repo name from '$origin'.  Try manually with -r 
REPO\n";
+  }
+}
+
+sub _git_config {
+  my $key = shift;
+  chomp( my $value = `git config --get $key` );
+  croak "Unknown $key" unless $value;
+  return $value;
+}
+
+my $github_user  = _git_config("github.user");
+my $github_token = _git_config("github.token");
+my $travis_token = _git_config("travis.token");
+
+my $gh = Net::GitHub->new( access_token => $github_token );
+
+my @repos;
+
+if ( $opts->get_repo ) {
+  @repos = $opts->get_repo;
+}
+else {
+  ( $github_user, @repos ) = @{ _detect_repo() };
+}
+
+my $hook_hash = {
+  name   => 'travis',
+  config => {
+    token  => $travis_token,
+    user   => $github_user,
+    domain => '',
+  },
+  events => [qw/push pull_request issue_comment public member/],
+  active => 1,
+};
+
+my $repos = $gh->repos;
+$repos->set_default_user_repo( $github_user, $repos[0] );
+my $hook = eval { $repos->create_hook($hook_hash) };
+if ($@) {
+  say "Failed: $@";
+}
+else {
+  say "Enabled travis for $repos[0]";
+}
+
+unless ( -f '.travis.yml' ) {
+  $yamls->child('sterile2.yaml')->copy('./.travis.yml');
+  say "copied .travis.yml to current directory";
+}
diff --git a/maint-travis-ci/yamls/sterile.mkdn 
b/maint-travis-ci/yamls/sterile.mkdn
new file mode 100644
index 0000000..2091483
--- /dev/null
+++ b/maint-travis-ci/yamls/sterile.mkdn
@@ -0,0 +1,54 @@
+## ABOUT
+
+  sterile.yaml
+
+## Tests
+
+### Version conformance tests
+
+Every version of Perl that can be tested on travis is tested.
+
+    - perl: <V>
+      env:  STERILIZE_ENV=0
+
+This is to test simply that the code works on that platform
+
+### Installable tests
+
+This tests both the maximum and minimum perls on travis to ensure
+that:
+
+  a. All dependencies are installable on all versions of Perl
+  b. No dependencies are inherently required by the code which are not 
specified.
+
+    - perl: <V>
+      env: STERILIZE_ENV=1
+
+Tree sterilization occurs here to ensure that only the versions of things
+that are provided by that version of perl exists prior to installing 
dependencies.
+
+### Pending upstream breakage
+
+This tests that of all the listed direct dependencies, that the code works as 
expected
+after upgrading to the latest version of all direct dependencies.
+
+Presently this only runs on the newest `perl` on travis, because it is seemed 
that
+if "-dev" versions are going to be a problem, they'll exhibit the same 
problems on all perls.
+
+Tree sterilization is not performed here, though may be in future, because 
that will reveal breakages
+between downstream dependencies.
+
+    - perl: <V>
+      env: STERILIZE_ENV=0 DEVELOPER_DEPS=1
+
+### Author Testing
+
+This is the most dependency expensive method, as this mode pulls in all 
dependencies
+listed in `develop.requires`, and additionally runs `xt/*`
+
+This is presently only performed on the latest perl due to the time 
expensiveness
+of this, requiring significantly more dependencies to perform tests.
+
+    - perl: <V>
+      env: STERILIZE_ENV=0 RELEASE_TESTING=1 AUTHOR_TESTING=1
+
diff --git a/maint-travis-ci/yamls/sterile.yaml 
b/maint-travis-ci/yamls/sterile.yaml
new file mode 100644
index 0000000..d32f20d
--- /dev/null
+++ b/maint-travis-ci/yamls/sterile.yaml
@@ -0,0 +1,42 @@
+language: perl
+matrix:
+  include:
+    - perl: "5.8"
+      env:  STERILIZE_ENV=0
+    - perl: "5.10"
+      env:  STERILIZE_ENV=0
+    - perl: "5.12"
+      env:  STERILIZE_ENV=0
+    - perl: "5.14"
+      env:  STERILIZE_ENV=0
+    - perl: "5.16"
+      env:  STERILIZE_ENV=0
+    - perl: "5.18"
+      env:  STERILIZE_ENV=0
+    - perl: "5.19"
+      env:  STERILIZE_ENV=0
+    - perl: "5.12"
+      env:  STERILIZE_ENV=1
+    - perl: "5.19"
+      env:  STERILIZE_ENV=1
+    - perl: "5.19"
+      env: STERILIZE_ENV=0 DEVELOPER_DEPS=1
+    - perl: "5.19"
+      env: STERILIZE_ENV=0 RELEASE_TESTING=1 AUTHOR_TESTING=1
+before_install:
+  - perlbrew list
+  - time perl ./maint-travis-ci/branch_reset.pl
+  - time perl ./maint-travis-ci/sterilize_env.pl
+install:
+  - time perl ./maint-travis-ci/install_deps.pl
+before_script:
+  - time perl ./maint-travis-ci/before_script.pl
+script:
+  - time perl ./maint-travis-ci/script.pl
+after_failure:
+  - perl ./maint-travis-ci/report_fail_ctx.pl
+branches:
+  only:
+    - "build/master"
+    - "releases"
+
diff --git a/maint-travis-ci/yamls/sterile2.yaml 
b/maint-travis-ci/yamls/sterile2.yaml
new file mode 100644
index 0000000..d0a6ce1
--- /dev/null
+++ b/maint-travis-ci/yamls/sterile2.yaml
@@ -0,0 +1,50 @@
+language: perl
+matrix:
+  allow_failures:
+    - perl: "5.8"
+    - env: STERILIZE_ENV=0 RELEASE_TESTING=1 AUTHOR_TESTING=1
+    - env: STERILIZE_ENV=0 DEVELOPER_DEPS=1
+  include:
+    - perl: "5.8"
+      env:  STERILIZE_ENV=0
+    - perl: "5.10"
+      env:  STERILIZE_ENV=0
+    - perl: "5.12"
+      env:  STERILIZE_ENV=0
+    - perl: "5.14"
+      env:  STERILIZE_ENV=0
+    - perl: "5.16"
+      env:  STERILIZE_ENV=0
+    - perl: "5.18"
+      env:  STERILIZE_ENV=0
+    - perl: "5.19"
+      env:  STERILIZE_ENV=0
+    - perl: "5.8"
+      env:  STERILIZE_ENV=1
+    - perl: "5.10"
+      env:  STERILIZE_ENV=1
+    - perl: "5.19"
+      env:  STERILIZE_ENV=1
+    - perl: "5.19"
+      env: STERILIZE_ENV=0 DEVELOPER_DEPS=1
+    - perl: "5.19"
+      env: STERILIZE_ENV=0 RELEASE_TESTING=1 AUTHOR_TESTING=1
+before_install:
+  - perlbrew list
+  - time perl ./maint-travis-ci/branch_reset.pl
+  - time perl ./maint-travis-ci/sterilize_env.pl
+install:
+  - time perl ./maint-travis-ci/install_deps_early.pl
+  - time perl ./maint-travis-ci/install_deps.pl
+before_script:
+  - time perl ./maint-travis-ci/before_script.pl
+script:
+  - time perl ./maint-travis-ci/script.pl
+after_failure:
+  - perl ./maint-travis-ci/report_fail_ctx.pl
+branches:
+  only:
+    - "master"
+    - "build/master"
+    - "releases"
+

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-role-bootstrap-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to