Skip to content

Instantly share code, notes, and snippets.

View nopaste
BEFORE:
Results for ordered hash creation for 10 elements
h:o_oo 82707/s
Results for ordered hash creation for 100 elements
h:o_oo 9207/s
Results for ordered hash creation for 1000 elements
h:o_oo 937/s
View perms.txt
Captcha,SFLEX,f
Chat,SFLEX,c
Chat_imob,SFLEX,f
Clock,SFLEX,f
DATE_TIME,SFLEX,f
Database_Manipulation,SFLEX,f
Error_Log,SFLEX,f
FAQ_Admin,SFLEX,f
Forum,SFLEX,f
Gallery,SFLEX,f
View test.pm
package testzz;
sub crap {
print "rrr";
}
use test2;
package test2;
crap();
View nopaste
Flex-WPS
├── Read_Me.txt
├── flex-cgi
│   ├── Captcha.cgi
│   ├── config.pl
│   ├── core.pm
│   ├── db
│   │   ├── data.cfg
│   │   ├── error.log
│   │   └── fatal_error.log
View out
ok 1
SV = IV(0x7fdf878be840) at 0x7fdf878be850
REFCNT = 1
FLAGS = (PADMY,ROK)
RV = 0x7fdf85a8c988
SV = PVHV(0x7fdf878ad020) at 0x7fdf85a8c988
REFCNT = 1
FLAGS = (SHAREKEYS,HASKFLAGS)
ARRAY = 0x7fdf83d7d530 (0:4, 1:4)
hash quality = 137.5%
View spin.sh
#!/bin/bash
/usr/bin/false; while [ $? -ne 0 ]; do perl test.pl >out 2>&1; echo -n $?; cat out | grep 'scalar'; done
View test.pl
use strict;
use warnings;
use Test::More 'no_plan';
use MongoDB;
sub build_client {
my @args = @_;
my $host = exists $ENV{MONGOD} ? $ENV{MONGOD} : 'localhost';
View nopaste
$ git diff --stat edbf30f..master lib
lib/Test/Builder.pm | 8 +-
lib/Test/Builder/Module.pm | 2 +-
lib/Test/Builder/Tester.pm | 4 +-
lib/Test/Builder/Tester/Color.pm | 2 +-
lib/Test/FAQ.pod | 6 +-
lib/Test/More.pm | 118 ++-------
lib/Test/Simple.pm | 4 +-
lib/Test/Stream.pm | 218 +++++++++------
lib/Test/Stream/Block.pm | 5 +-
View find-dup-primary-in-perms.pl
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use IO::Zlib;
use Module::CoreList::More;
use Parse::CPAN::Packages::Fast;
my $CPAN = shift || "/srv/cpan";
View dup-primary.txt
Parsing 02packages...
Parsing 06perms...
Authen::NTLM (m:NBEBOUT f:BUZZ) N/NB/NBEBOUT/NTLM-1.09.tar.gz
AutoReloader (m:SHMEM f:JPRIT) NOT IN 02packages
B::C (m:RURBAN f:MICB) R/RU/RURBAN/B-C-1.52.tar.gz
B::CC (m:RURBAN f:MICB) R/RU/RURBAN/B-C-1.52.tar.gz
Business::ISBN::Data (m:ESUMMERS f:BDFOY) B/BD/BDFOY/Business-ISBN-Data-20140910.002.tar.gz
CGI::Session::Serialize::yaml (m:RSAVAGE f:MARKSTOS) R/RS/RSAVAGE/CGI-Session-Serialize-yaml-4.26.tgz
Catalyst::Engine::Apache (m:MSTROUT f:AGRUNDMA) F/FL/FLORA/Catalyst-Engine-Apache-1.16.tar.gz
Catalyst::Engine::HTTP::POE (m:MSTROUT f:AGRUNDMA) A/AG/AGRUNDMA/Catalyst-Engine-HTTP-POE-0.08.tar.gz
You can’t perform that action at this time.