Skip to content

Instantly share code, notes, and snippets.

@ugexe
ugexe / client.p6
Last active December 24, 2015 10:38
perl6 async/thread socket load test client/echo server
sub MAIN( Str :$host = '127.0.0.1', Int :$port!, Int :$connections!, Bool :$os_threads? ) {
my %threads;
(1..$connections).map(-> $count {
my $makesock = {
my $client = IO::Socket::INET.new( host => $host, port => $port );
$client.send($count);
say "count: $count | returned: " ~ $client.recv;
};
[nickl@db-server Text--Levenshtein--XS]$ dzil clean
[DZ] clean: removing .build
[DZ] clean: removing Text-Levenshtein-XS-0.423
[DZ] clean: removing Text-Levenshtein-XS-0.423.tar.gz
[nickl@db-server Text--Levenshtein--XS]$ dzil build
[Phase_Begins] ########## Before Build ##########
[Phase_Ends] ########## Before Build ##########
[DZ] beginning to build Text-Levenshtein-XS
[Phase_Begins] ########## Gather Files ##########
[Phase_Ends] ########## Gather Files ##########
name = Text-Levenshtein-XS
author = ugexe <ugexe@cpan.org>
license = Perl_5
copyright_holder = Nick Logan
main_module = lib/Text/Levenshtein/XS.pm
[@Author::BBYRD]
release_branch = dev
push_to = origin dev:dev
push_to = origin build/dev:build/dev
language: perl
perl:
- 'blead'
- '5.20'
- '5.18'
- '5.16'
- '5.14'
- '5.12'
- '5.10'
- '5.8'
language: perl
perl:
- 'blead'
- '5.20'
- '5.18'
- '5.16'
- '5.14'
- '5.12'
- '5.10'
- '5.8'
[DZ] reading configuration using Dist::Zilla::MVP::Reader::Finder
[@Author::BBYRD/ReportPhase] online, Dist::Zilla::Plugin::ReportPhase v0.03
[@Author::BBYRD/MakeMaker] online, Dist::Zilla::Plugin::MakeMaker v5.020
[@Author::BBYRD/Authority] online, Dist::Zilla::Plugin::Authority v1.006
[@Author::BBYRD/Git::NextVersion] online, Dist::Zilla::Plugin::Git::NextVersion v2.025
[@Author::BBYRD/Git::GatherDir] online, Dist::Zilla::Plugin::Git::GatherDir v2.025
[@Author::BBYRD/OurPkgVersion] online, Dist::Zilla::Plugin::OurPkgVersion v0.005001
[@Author::BBYRD/PodWeaver] online, Dist::Zilla::Plugin::PodWeaver v4.006
[@Author::BBYRD/GitFmtChanges] online, Dist::Zilla::Plugin::GitFmtChanges v0.005
[@Author::BBYRD/PruneCruft] online, Dist::Zilla::Plugin::PruneCruft v5.020
# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.020.
CHANGES
INSTALL
LICENSE
MANIFEST
META.json
META.yml
Makefile.PL
README
README.html
@ugexe
ugexe / .travis.yml.new
Created October 22, 2014 19:05
Removal of duplicated code
- 'if [[ $BUILD == 1 && ! -d .build/testing ]]; then unset BUILD; fi'
- export AUTOMATED_TESTING=1 NONINTERACTIVE_TESTING=1 HARNESS_OPTIONS=j10:c HARNESS_TIMER=1
- git clone git://github.com/haarg/perl-travis-helper
- source perl-travis-helper/init
- build-perl
- perl -V
- export PATH=$HELPER_ROOT/bin:$PATH
- 'if [[ $BUILD == 0 ]]; then git config --global user.name "TravisCI"; fi'
- 'if [[ $BUILD == 0 ]]; then git config --global user.email $HOSTNAME":not-for-mail@travis-ci.org"; fi'
- 'if [[ $BUILD == 1 ]]; then cd .build/testing; fi'
@ugexe
ugexe / .travis.yml.new
Created October 22, 2014 19:07
Removal of duplicated code
- 'if [[ $BUILD == 1 && ! -d .build/testing ]]; then unset BUILD; fi'
- export AUTOMATED_TESTING=1 NONINTERACTIVE_TESTING=1 HARNESS_OPTIONS=j10:c HARNESS_TIMER=1
- git clone git://github.com/haarg/perl-travis-helper
- source perl-travis-helper/init
- build-perl
- perl -V
- export PATH=$HELPER_ROOT/bin:$PATH
- 'if [[ $BUILD == 0 ]]; then git config --global user.name "TravisCI"; fi'
- 'if [[ $BUILD == 0 ]]; then git config --global user.email $HOSTNAME":not-for-mail@travis-ci.org"; fi'
- 'if [[ $BUILD == 1 ]]; then cd .build/testing; fi'
@ugexe
ugexe / .travis.yml.new
Created October 22, 2014 19:08
Removal of duplicated code
- 'if [[ $BUILD == 1 && ! -d .build/testing ]]; then unset BUILD; fi'
- export AUTOMATED_TESTING=1 NONINTERACTIVE_TESTING=1 HARNESS_OPTIONS=j10:c HARNESS_TIMER=1
- git clone git://github.com/haarg/perl-travis-helper
- source perl-travis-helper/init
- build-perl
- perl -V
- 'if [[ $BUILD == 0 ]]; then git config --global user.name "TravisCI"; fi'
- 'if [[ $BUILD == 0 ]]; then git config --global user.email $HOSTNAME":not-for-mail@travis-ci.org"; fi'
- 'if [[ $BUILD == 1 ]]; then cd .build/testing; fi'
- 'if [[ $BUILD == 1 ]]; then export AUTHOR_TESTING=0; fi'