Acme-VOYAGEGROUP-ConferenceRoom

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
use CPAN::Meta::Prereqs;

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

bin/conference_room  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode::Locale;
use Acme::VOYAGEGROUP::ConferenceRoom;

Encode::Locale::decode_argv;

print conference_room(@ARGV), "\n";

exit(0);

__END__

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

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

package Acme::VOYAGEGROUP::ConferenceRoom::Output::Color;
use strict;
use warnings;
use utf8;

sub convert {
    my $class = shift;
    my $lines = shift;

    join "\n", map { $_ =~ s!(/+)!\e[31m$1\e[m!; $_ } @{$lines};
}

1;

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

package Acme::VOYAGEGROUP::ConferenceRoom::Output::JSON;
use strict;
use warnings;
use utf8;
use JSON::XS;

sub convert {
    my $class = shift;
    my $lines = shift;

    encode_json {
        conference_room => join "\n", @{$lines}
    };
}

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

package Acme::VOYAGEGROUP::ConferenceRoom::Output::MessagePack;
use strict;
use warnings;
use utf8;
use Data::MessagePack;

sub convert {
    my $class = shift;
    my $lines = shift;

    my $mp = Data::MessagePack->new();

    $mp->pack({conference_room => join "\n", @{$lines}});
}

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

package Acme::VOYAGEGROUP::ConferenceRoom::Output::XML;
use strict;
use warnings;
use utf8;
use XML::Smart;

sub convert {
    my $class = shift;
    my $lines = shift;

    my $xml = XML::Smart->new;
    $xml->{conference_room} = join "\n", @{$lines};

    scalar $xml->data;

t/01_conference_room.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Test::Pretty;
use Test::Base::Less;
use Acme::VOYAGEGROUP::ConferenceRoom;

subtest '会議室の場所が確認できる' => sub {
    filters {
        expected => [qw/chomp/],
    };
    for my $block (blocks) {