dagolden

diff --git a/lib/Dist/Zilla/PluginBundle/DAGOLDEN.pm b/lib/Dist/Zilla/PluginBundle/DAGOLDEN.pm
index 0606618..c07e325 100644
--- a/lib/Dist/Zilla/PluginBundle/DAGOLDEN.pm
+++ b/lib/Dist/Zilla/PluginBundle/DAGOLDEN.pm
@@ -52,17 +52,17 @@ with 'Dist::Zilla::Role::PluginBundle::PluginRemover';
 
 sub mvp_multivalue_args { qw/stopwords/ }
 
 has stopwords => (
     is      => 'ro',

dagolden

* Collaborating with Ricardo in finishing PAUSE changes agreed to in the Lancaster Consensus
* Patching CPAN.pm to use CPAN::Common::Index for lower memory use and/or faster index response time
* Refactoring code from CPAN, CPANPLUS and cpanminus into CPAN::Common::* modules for less duplication and greater consistency across clients
* Prototyping ideas I have for improved code benchmarking tools
* Closing security holes in various toolchain modules
* Automating Metabase deployment with configuration management tools
* Implementing IPv6 support in HTTP::Tiny; also reviewing a pull request for persistent connection support
* Implementing coderef/arrayref/object in @INC support for Acme::require::case
* Improving perldoc for require
* Exploring BackPAN indexing and improved PAUSE indexes

dagolden

diff --git a/lib/TAP/Harness.pm b/lib/TAP/Harness.pm
index 53d8d18..592b74b 100644
--- a/lib/TAP/Harness.pm
+++ b/lib/TAP/Harness.pm
@@ -415,6 +415,8 @@ Any keys for which the value is C<undef> will be ignored.
 
         $self->jobs(1) unless defined $self->jobs;
 
+        $self->rules($self->_load_test_plan) unless defined $self->rules;
+

dagolden

use strict;
use YAML::Tiny;
 
#######
# Make an object from "data":
my $data = "000 000";
my $hash1 = {split /\s/, $data};
 
    print Dump $hash1; # expect '000': '000'  (Works)
 

dagolden

 2003 (  2) 
 2004 ( 13) #
 2005 ( 77) ##########
 2006 ( 99) #############
 2007 ( 70) #########
 2008 (108) ###############
 2009 (107) ##############
 2010 (193) ##########################
 2011 (135) ##################
 2012 (148) ####################

dagolden

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use List::AllUtils qw/shuffle/;
use File::stat;

my $NUMBER = shift || 10;

my @ps_who = qw( augo ugo ago go auo uo ao o aug ug ag g au u a );

dagolden

use v5.10;
use strict;
use warnings;

system(1, $^X, '-e', 'sleep 5; print qq[not ok 1 - blah blah\n]');

dagolden

hack is a function
hack () 
{ 
    local dir;
    if [[ -d $1 ]]; then
        dir=$1;
    else
        dir=$(perl -MPIR -wE 'my $iter=PIR->new->skip_vcs->directory->iname(shift)->iter("$ENV{HOME}/git"); say $iter->()' $1);
    fi;
    if [[ -n $dir && -d $dir ]]; then

dagolden

perlconcurrency
	problem (“two axes”)
		compute-bound problems
			Spread the load
				“embarrassingly parallel” i.e. "divide/conquer"
				"divide/conquer/combine"
		I/O bound communication
			Wait for opportunity to send or receive
				Network
				Disk

dagolden

This document describes the process by which PAUSE analyzes a Perl 5
distribution tarball after upload. This does *NOT* necessarily apply to
perl core uploads.

# Definitions

* 'uploader' → PAUSE ID of a person uploading a file to PAUSE

* 'tarball' → filename of an archive containing a CPAN distribution
  (whether tar or otherwise)