Select Code to Download

my @tests = (
    # $string, $pos, $expected, $description
    [ "\nString\n", 2, 6, 'Surrounded' ],
...
    [ "String",     2, 6, 'No \n' ],
    [ "",           0, 0, 'Blank' ],
);

                Rate     op_ver      daxim    rlindex cur_strlen
op_ver      564186/s         --       -23%       -66%       -86%
daxim       737063/s        31%         --       -56%       -81% <-- H
+ERE
rlindex    1677856/s       197%       128%         --       -57%
cur_strlen 3932672/s       597%       434%       134%         --

not ok 1 - daxim: Surrounded
#   Failed test 'daxim: Surrounded'
#   at /home/ryan/src/perlmonks/subline.pl line 37.
...
Use of uninitialized value $prev in subtraction (-) at /home/ryan/src/
+perlmonks/subline.pl line 64.
Use of uninitialized value $next in subtraction (-) at /home/ryan/src/
+perlmonks/subline.pl line 64.
ok 5 - daxim: Blank