The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# chat.stem
#
[
	class	=>	'Stem::Console',
],
[
	class	=>	'Stem::SockMsg',
	name	=>	'A',
	args	=>	[
		port		=> 6666,
		server		=> 1,
		cell_attr	=> [
			'data_addr'	=> ':sw:a'
		],
	],
],
[
	class	=>	'Stem::SockMsg',
	name	=>	'B',
	args	=>	[
		port		=> 6667,
		server		=> 1,
		cell_attr	=> [
			'data_addr'	=> ':sw:b'
		],
	],
],
[
	class	=>	'Stem::SockMsg',
	name	=>	'C',
	args	=>	[
		port		=> 6668,
		server		=> 1,
		cell_attr	=> [
			'data_addr'	=> ':sw:c'
		],
	],
],
[
	class	=>	'Stem::SockMsg',
	name	=>	'D',
	args	=>	[
		port		=> 6669,
		server		=> 1,
		cell_attr	=> [
			'data_addr'	=> ':sw:d'
		],
	],
],
[
	class	=>	'Stem::Switch',
	name	=>	'sw',
	args	=>	[

		in_map => [

			a => [ qw( a b c d ) ],
			b => 'a',
			c => [ qw( b d ) ],
			d => 'c',
		],

		out_map => [

			a => 'A',
			b => 'B',
			c => 'C',
			d => 'D',
		],
	],
],