Select Code to Download

use Benchmark qw(cmpthese);

...
do_var 12.9/s    95%     --   -46%   -46%
plain  23.9/s   261%    85%     --     0%
do     23.9/s   261%    85%     0%     --

package Inline::Blocks;

...
at your option, any later version of Perl 5 you may have available.

=cut

use Inline::Blocks;

...
    my ($foo) = @_;
    ++$foo;
}

use Inline::Blocks;
print uppercaseIncrementAsString(('a', 'b', 'c', 'd', 'e', 'f')), "\n"
+;
...
    my($foo) = @_;
    ++$foo;
}