#! perl -slw
use strict;
use Win32::MMF::Shareable;
use IO::Socket::INET;
use Benchmark qw[ cmpthese ];

our $DSIZE ||= 100;

my $mmf;
tie $mmf, 'Win32::MMF::Shareable', 'mmf',
{
    namespace => 'Win32MMFTest',
    size      => 10000,
    reuse     => 0
};

my $sock = IO::Socket::INET->new( 'localhost:54321' );
my $data = 'X' x $DSIZE;

cmpthese -1, {
    MMF => sub { $mmf = $data },
    TCP => sub { print $sock $data }
};

__END__
C:\test>MMF-IO-b -DSIZE=8
        Rate  MMF  TCP
MMF  28872/s   -- -77%
TCP 123636/s 328%   --

C:\test>MMF-IO-b -DSIZE=80
        Rate  MMF  TCP
MMF  27401/s   -- -73%
TCP 102909/s 276%   --

C:\test>MMF-IO-b -DSIZE=800
       Rate  MMF  TCP
MMF 28295/s   -- -67%
TCP 86245/s 205%   --