wchristian

[email protected]:Log-Contextual.git "log_routing"
[email protected]:Object-Remote.git "logging"
[email protected]:System-Introspector.git "tylerr_logging"
[email protected]:JSON-Tree-Viewer.git

wchristian

(none):~# perl -e 'use Crypt::Eksblowfish::Bcrypt qw(bcrypt_hash en_base64);print en_base64 bcrypt_hash({cost => 8,salt => "1234567890abcdef"},$_),"\n" for (1,11);'
GY5KnUE/FFNLwDney4molzypf2vh5Mi
GY5KnUE/FFNLwDney4molzypf2vh5Mi
(none):~# perl -e 'use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);print bcrypt($_,q|$2a$08$b0MHMsT3ErLoTRjpjzsCie|),"\n" for (1,11);'
$2a$08$b0MHMsT3ErLoTRjpjzsCieksSLYcg27YfnOpf3dd8TiZpOLw3TOhG
$2a$08$b0MHMsT3ErLoTRjpjzsCie3OvxmdWk1tSYZxgV0WFciU0jYePvZja
(none):~# perl -e 'use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);print bcrypt("1"x$_,q|$2a$08$b0MHMsT3ErLoTRjpjzsCie|),"\n" for 70..75;'
$2a$08$b0MHMsT3ErLoTRjpjzsCieghYEUiJWaYEq7sboohyWq25qyt6YU/2
$2a$08$b0MHMsT3ErLoTRjpjzsCiexbT04ky0FzZqAoWP/o65Otz9VVFMysS
$2a$08$b0MHMsT3ErLoTRjpjzsCieyEcoVO5GiK1Rl3eTU6Jmr4UuMNm5YIG

wchristian

use strictures;
use IPC::Open3 'open3';
use Symbol 'gensym';

# run some processes in parallel
# collect output
# no fork on non-*nix platforms
# pure perl
# no STDIN mangling
# works on *all* platforms

wchristian

This is kind of dumb.

wchristian

Introduction
  Why Perl over Powershell?
  Quickstart                         # portable strawberry, install a module from cpan, run a oneliner

Perl distributions for Windows
  ActivePerl
  Strawberry Perl
  Cava                               # never seen anyone use this
  cygwin (only briefly)

wchristian

#!/usr/bin/env perl

use strict;
use warnings;

use URI;
use URI::Escape;
use Digest::SHA qw(hmac_sha256_base64);
use LWP::UserAgent;
use XML::LibXML;

wchristian

- fix dist-making with EUMM
- blog post for Crypt::DH
- discuss with mst if Test::TCP can be fixed
- check need for further checks of codulatables in Moose params (trigger) and maybe release
- test `no Moo;`
- test Moose and Mouse constraint usage in roles to be applied to a Moo class
- 12-07-17@16:55:57 • @mst adds Mouse support and pushes, Mithaldu: extra tests for completeness welcome
- make versioning of all feasible:
	(mst) if we generate provides => metadata into META.yml then the indexer doesn't need to check the .pm files
	(mst) and we can have 'our $VERSION = $Plack::VERSION;' in the files at which point you can depend on any module and I don't complain about duplication anymore :)

wchristian

"Time of Day","Process Name","PID","Operation","Path","Result","Command Line"
"03:59:36,0291309","perl.exe","56352","CreateFile","C:\Windows\System32\wow64log.dll","NAME NOT FOUND","C:\Perl\bin\perl.exe -w t\00-load-main.t"
"03:59:36,0340850","perl.exe","56352","CreateFile","C:\Perl\bin\perl.exe.Local","NAME NOT FOUND","C:\Perl\bin\perl.exe -w t\00-load-main.t"
"03:59:36,0347155","perl.exe","56352","CreateFile","C:\Windows\winsxs\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2\comctl32.dll","SUCCESS","C:\Perl\bin\perl.exe -w t\00-load-main.t"
"03:59:36,0347387","perl.exe","56352","QueryBasicInformationFile","C:\Windows\winsxs\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2\comctl32.dll","SUCCESS","C:\Perl\bin\perl.exe -w t\00-load-main.t"
"03:59:36,0347511","perl.exe","56352","CloseFile","C:\Windows\winsxs\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e6975e2bd6f2b2\comctl32.dll","SUCCESS","C

wchristian

blib
Makefile
Makefile.old
pm_to_blib
MYMETA*
cover_db/digests
cover_db/structure*

wchristian

use strict;
use warnings;

package prima_test;

use Prima qw (Application ComboBox);

my $mw = Prima::MainWindow->create(

    # here there are some options, mainly that more common: