Select Code to Download

use IPC::Shareable;

...
# complex method
tie( $scalar, 'IPC::Shareable', 'varid', { ...options... } );  # OR
tie( $scalar, 'IPC::Shareable', { key => 'varid', ...options... } );

use Win32::MMF::Shareable;

...
tie( $scalar, 'Win32::MMF::Shareable', 'varid', { ...options... } );  
+# OR
tie( $scalar, 'Win32::MMF::Shareable', { key => 'varid', ...options...
+ } );
# for compatibility

use Win32::MMF::Shareable;

...
tie( $bigvar1, 'Win32::MMF::Shareable', 'bigvar1' );
tie( $bigvar2, 'Win32::MMF::Shareable', 'bigvar2' );
tie( $bigvar3, 'Win32::MMF::Shareable', 'bigvar3' );

tie( $scalar, 'Win32::MMF::Shareable', { namespace => 'ns1', key => 'f
+oo' } );
tie( $scalar, 'Win32::MMF::Shareable', { namespace => 'ns1', key => 'b
+ar' } );
tie( $scalar, 'Win32::MMF::Shareable', { namespace => 'ns2', key => 'f
+oo' } );
tie( $scalar, 'Win32::MMF::Shareable', { namespace => 'ns2', key => 'b
+ar' } );

# Process 1
use Win32::MMF::Shareable;
...
# get the current value of another processes tied variable!
my $server = Win32::MMF->new( -namespace => "shareable", reuse => 1 );
+ 
my @current_queue = $server->getvar( 'queue' );

tie( $var, 'Win32::MMF::Shareable', 'var' );  # OR
tie( $var, 'Win32::MMF::Shareable', 'var', { connect => 'auto' } );  #
+ map if already available, otherwise create
tie( $var, 'Win32::MMF::Shareable', 'var', { connect => 1 } ); # must 
+already exist
tie( $var, 'Win32::MMF::Shareable', 'var', { connect => 0 } ); # must 
+not already exist

$data = tie( %data, 'Win32::MMF::Shareable', 'data', { timeout => 60 }
+ );
if( $data->{error} ) { die( “can't tie data: ” . $data->{errstr} ) }  
+# maybe? or just return undef
...

  $data->unlock();
}

use japh; print;