open FH is faster than IO::File

[azumakuniyuki]

#!/usr/bin/env perl
use strict;
use warnings;
use IO::File;
use Benchmark ':all';
use Test::More 'no_plan';

sub iofile {
    my $p = IO::File->new(__FILE__);
    my $e = [];

    push @$e, $_ while <$p>;
    $p->close;
    return $e;
}

sub handle {
    my $e = [];
    open FH, __FILE__;
    push @$e, $_ while <FH>;
    close FH;
    return $e;
}

ok scalar @{ iofile() };
ok scalar @{ handle() };

cmpthese(50000, { 
    'IO::File' => sub { &iofile },
    'open FH,' => sub { &handle },
});

            Rate IO::File open FH,
IO::File 19763/s       --     -26%
open FH, 26596/s      35%       --
1..2