Select Code to Download

C:\test>235765
Benchmark: timing 1 iterations of msf_small, sf_small...
...
             Rate  sf_bigger msf_bigger
sf_bigger  51.3/s         --       -62%
msf_bigger  134/s       162%         --

    exists $self->{data} ? keys %{$self->{data}} : wantarray ? () : un
+def;

     return unless exists $self->{data};
     keys %{$self->{data}};

    if (...) {
        ...
...
    } else {
        ...
    }

    my $min;
    my $max = $min = exists $self->{data} ? $self->{data}->{each %{$se
+lf->{data}}} : undef;

package My::Stats::Freq;
use strict;
...
print $msf->elements;
print $msf->frequencies;

#! perl -slw
use strict;
...
    my ($max) = $f->by_frequency( $f->max() );
    warn "msf broken" unless $max eq 'bob';
}