view release on metacpan or  search on metacpan

setup/stencils/computer  view on Meta::CPAN

use strict ;
use warnings ;

use  App::Asciio::Stencil qw(create_box create_element) ;

my @ascii = 
	(
	'3D_box' => <<'EOA',
  .---.
 /   /|
.---. |
|   | '
|   |/ 
'---'  
EOA

	'console' => <<'EOA',
 ____ 
|    |
|____|
/::::/

EOA

	'computer_small' => <<'EOA',
 __  _ 
[__]|=|
/::/|_|
EOA

	'mainframe' => <<'EOA',
 ________ 
|==|=====|
|  |     |
|  |     |
|  |     |
|  |     |
|  |====°|
|__|_____|
EOA

	'Mini' => <<'EOA',
 ____ 
|====|
|    |
|    |
|____|
EOA

	'19_rack' => <<'EOA',
 __________ 
[_..._....°]
[_..._....°]
[_..._....°]
[_..._....°]
[_|||||||_°]
[_|||||||_°]
[_|||||||_°]
[_________°]
[_________°]
[_________°]
[___....__°]
EOA

	'rack modem' => <<'EOA',
 __________ 
|____oooo_°|
EOA

	'SAN' => <<'EOA',
 __________ 
[_|||||||_°]
[_|||||||_°]
[_|||||||_°]
EOA

	'router' => <<'EOA',
 __________ 
[_...__...°]
EOA

	'wireless' => <<'EOA',
 |_|_| 
[____°]
EOA

	'workstation' => <<'EOA',
 ____   __ 
|    | |==|
|____| |  |
/::::/ |__|