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';
.---------------.---------------------.
|               |                     |
|               |      .--.--.----.---|
|               |      |  |  |    |   |
|               |---.  |  |--|    |   |
|               |   |  '--'  '----|   |
|               |---'-.          .'---|
|               |     |          |    |
'---------------'-----'.--.--.  .'----|
                       |     |  |     |
                       |--.--|  |--.--|
                       |  |  |  |  |  |
                       '--'--'  '--'--|
                                      |
                         .------------|
                         |            |
                         |            |
                         '------------'
EOS

my %PROCESS_OF = (
    pangea => {
        lines         => [1..7],
        normalization => qr/^ぱんげあ|パンゲア$/ms,
        position      => qr{ ^(\|/*)\s }x,
        direction     => 'head',
    },
    megallanica => {
        lines         => [3..4],
        normalization => qr/^めがらにか|メガラニカ$/ms,
        position      => qr{ ^(\|\s+\|[^\|]+\|/*)\s }x,
    },
    mu => {
        lines         => [3],
        normalization => qr/^むー|ムー$/ms,
        position      => qr{ \s(/*\|\s+\|\s+\|)$ }x,
    },
    ultima => {
        lines         => [5],
        normalization => qr/^うるてぃま|ウルティマ$/ms,
        position      => qr{ ^(\|\s+\|/*)\s }x,
    },
    atlantis => {
        lines         => [3..4],
        normalization => qr/^あとらんてぃす|アトランティス$/ms,
        position      => qr{ \s(/*\|\s+\|)$ }x,
    },
    pacifis => {
        lines         => [3..5],
        normalization => qr/^ぱしふぃす|パシフィス$/ms,
        position      => qr{ \s(/*\|)$ }x,
    },
    zipang => {
        lines         => [7],
        normalization => qr/^じぱんぐ|ジパング$/ms,