view release on metacpan or  search on metacpan

lib/Acme/VOYAGEGROUP/ConferenceRoom.pm  view on Meta::CPAN

package Acme::VOYAGEGROUP::ConferenceRoom;
use 5.008005;
use strict;
use warnings;
use Carp;
use utf8;
use UNIVERSAL::require;
use parent 'Exporter';

binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";

our $VERSION = "0.01";
our @EXPORT = qw/ conference_room /;

use constant FLOOR_PLAN => <<'EOS';
.---------------.---------------------.
|               |                     |
|               |      .--.--.----.---|
|               |      |  |  |    |   |
|               |---.  |  |--|    |   |