exodist

Current cpan dev release of Test-More + Test-Stream/master
Files=472, Tests=19125, 86 wallclock secs ( 2.73 usr  0.47 sys + 79.60 cusr  5.08 csys = 87.88 CPU)
Files=472, Tests=19125, 86 wallclock secs ( 2.73 usr  0.47 sys + 80.09 cusr  5.26 csys = 88.55 CPU)
Files=472, Tests=19125, 88 wallclock secs ( 2.73 usr  0.49 sys + 81.29 cusr  5.22 csys = 89.73 CPU)

Current cpan dev release of Test-More + Test-Stream/tap_rework - using index()
Files=472, Tests=19125, 85 wallclock secs ( 2.75 usr  0.45 sys + 79.67 cusr  5.07 csys = 87.94 CPU)
Files=472, Tests=19125, 86 wallclock secs ( 2.75 usr  0.43 sys + 79.51 cusr  4.96 csys = 87.65 CPU)
Files=472, Tests=19125, 87 wallclock secs ( 2.71 usr  0.51 sys + 80.60 cusr  5.23 csys = 89.05 CPU)

exodist

dup(1)                                  = 3
ioctl(3, SNDCTL_TMR_TIMEBASE or SNDRV_TIMER_IOCTL_NEXT_DEVICE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
lseek(3, 0, SEEK_CUR)                   = -1 ESPIPE (Illegal seek)
fstat(3, {st_mode=S_IFCHR|0620, st_rdev=makedev(136, 4), ...}) = 0
fcntl(3, F_SETFD, FD_CLOEXEC)           = 0
ioctl(3, SNDCTL_TMR_TIMEBASE or SNDRV_TIMER_IOCTL_NEXT_DEVICE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
lseek(3, 0, SEEK_CUR)                   = -1 ESPIPE (Illegal seek)
dup(2)                                  = 4
ioctl(4, SNDCTL_TMR_TIMEBASE or SNDRV_TIMER_IOCTL_NEXT_DEVICE or TCGETS, {B38400 opost isig icanon echo ...}) = 0
lseek(4, 0, SEEK_CUR)                   = -1 ESPIPE (Illegal seek)

exodist

use strict;
use warnings;

local $! = 100;
print '$! == ' . int($!) . "\n";

{
    local $! = $!; 

    print '$! == ' . int($!) . "\n";

exodist

sub _get_all_attrs {
    my @todo = @_; 
    my %seen;
    my @all;
    while (my $pkg = shift @todo) {
        next if $seen{$pkg}++;
        my $found = $META{$pkg};
        push @all => @$found if $found;

        no strict 'refs';

exodist

package Test2::Util::HashBase;
use strict;
use warnings;

my %ATTRS;
my %META;

sub _get_inherited_attrs {
    my @todo = @_; 
    my %seen;

exodist

Test2
1.59s user 0.02s system 99%  cpu 1.616 total
1.59s user 0.03s system 100% cpu 1.618 total
1.62s user 0.02s system 100% cpu 1.640 total
1.62s user 0.02s system 100% cpu 1.637 total
1.61s user 0.01s system 100% cpu 1.615 total

Test::Builder (stable)
3.74s user 0.08s system 99%  cpu 3.842 total
3.77s user 0.05s system 100% cpu 3.818 total

exodist

perl -E 'use Data::Dumper; my ($x, $y) = \("x", "y"); print Dumper($x, $y)'
$VAR1 = \'x';
$VAR2 = \'y';

exodist

use strict;
use warnings;

use Data::Dumper;
use B;

local $! = 1;

my $obj = B::svref_2object(\$!);
print Dumper($obj, $obj->MAGIC->FLAGS);

exodist

cc -c -DPERL_CORE -D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -std=c89 -O2 -Wall -Werror=declaration-after-statement -Wextra -Wc++-compat -Wwrite-strings op.c
cc -fstack-protector -L/usr/local/lib -o miniperl \
            perlmini.o opmini.o miniperlmain.o  gv.o toke.o perly.o pad.o regcomp.o dump.o util.o mg.o reentr.o mro_core.o keywords.o hv.o av.o run.o pp_hot.o sv.o pp.o scope.o pp_ctl.o pp_sys.o doop.o doio.o regexec.o utf8.o taint.o deb.o universal.o globals.o perlio.o perlapi.o numeric.o mathoms.o locale.o pp_pack.o pp_sort.o caretx.o dquote.o time64.o   -lpthread -lnsl -ldl -lm -lcrypt -lutil -lc 
./miniperl -w -Ilib -Idist/Exporter/lib -MExporter -e '<?>' || sh -c 'echo >&2 Failed to build miniperl.  Please run make minitest; exit 1'
Can't locate Importer.pm in @INC (you may need to install the Importer module) (@INC contains: lib dist/Exporter/lib /home/exodist/.perlbrew/libs/main@exodist/lib/perl5 

exodist

../ext/B/t/optree_specials.t .. 1/15 # Failed test 3 - BEGIN at t/optree_specials.t line 37
#      got 'BEGIN 1:
# a  <1> leavesub[1 ref] K/REFC,1 ->(end)
# -     <@> lineseq K ->a
# 1        <;> nextstate(B::Concise -910 Concise.pm:301) v:*,&,x*,x&,x$,$ ->2
# 3        <1> require sK/1 ->4
# 2           <$> const[PV "strict.pm"] s/BARE ->3
# -        <;> ex-nextstate(B::Concise -910 Concise.pm:301) v:*,&,x*,x&,x$,$ ->4
# -        <@> lineseq K ->-
# 4           <;> nextstate(B::Concise -910 Concise.pm:301) :*,&,x*,x&,x$,$ ->5