Select Code to Download

=head1 Storable 2.15 has a memory leak

...
system qw[ perl -S cpanp l CGI];
print time-$now,$/,$/;

use Benchmark 'cmpthese';

...
while 2453/s    --  -30%
for   3527/s   44%    --

#!perl
#!/usr/bin/perl
...

__END__

use Data::Dumper;
use LWP::Simple;
...
$VAR3 = 'name';
$VAR4 = 'keywords';

use Benchmark 'cmpthese';

...
subst 1132/s    --  -28%  -29%
split 1564/s   38%    --   -1%
match 1587/s   40%    1%    --

# JavaScript-SpiderMonkey-0.08/Makefile.PL

...
    nmake test
    nmake install

use strict;
use warnings;
...
    nowrap onmouseover="this.className='buttonon'" onmousedown="this.c
+lassName='buttondown'"

    onmouseout="this.className='buttonoff'" onclick="window.location='
+default.html'"><font face="arial, geneva, helvetica" size="-1">

#!/usr/bin/perl -wl

...
)                        end of grouping
----------------------------------------------------------------------

use Benchmark qw( cmpthese );

...
splice    67361/s      262%        --       -1%       -1%
del       67711/s      264%        1%        --       -0%
shiftNpop 68042/s      266%        1%        0%        --

# this makes a little sense

...
          PUTTY->$plugin,"\n",
          $other->$plugin,"\n\n";
}

foreach (@body) {                                                     
    chomp $_;
...
    }
}

#!/usr/bin/perl
use strict;
...
readgrep 1024/s     158%     154%      21%       --

sub isleap {    my ($year) = @_;
    return 1 if (( $year % 400 ) == 0 ); # 400's are leap
...
E:\new\Date-Leapyear-1.71>

use strict;
use Data::Dumper;
...
Wassup????

=cut

use strict;
use Data::Dumper;
$Data::Dumper::Indent=1;
...
        ### HTML::Template Debug ### In _parse:
HTML::Template->new() : No NAME given to a TMPL_VAR tag at /*IN_MEMORY
+*/ : line 1. at E:/dev/HTML-Template/HTML-Template
-2.5/blib/lib/HTML/Template.pm line 1862.