Acme-VOYAGEGROUP-ConferenceRoom

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion" : "0.10108",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Data::MessagePack" : "0",
            "Encode::Locale" : "0",
            "JSON::XS" : "0",
            "UNIVERSAL::require" : "0",
            "XML::Smart" : "0",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "Test::Base::Less" : "0",
            "Test::More" : "0.98",
            "Test::Pretty" : "0"

META.yml  view on Meta::CPAN

    file: lib/Acme/VOYAGEGROUP/ConferenceRoom/Output/Color.pm
  Acme::VOYAGEGROUP::ConferenceRoom::Output::JSON:
    file: lib/Acme/VOYAGEGROUP/ConferenceRoom/Output/JSON.pm
  Acme::VOYAGEGROUP::ConferenceRoom::Output::MessagePack:
    file: lib/Acme/VOYAGEGROUP/ConferenceRoom/Output/MessagePack.pm
  Acme::VOYAGEGROUP::ConferenceRoom::Output::XML:
    file: lib/Acme/VOYAGEGROUP/ConferenceRoom/Output/XML.pm
requires:
  Data::MessagePack: 0
  Encode::Locale: 0
  JSON::XS: 0
  UNIVERSAL::require: 0
  XML::Smart: 0
  perl: 5.008005
resources:
  bugtracker: https://github.com/monmon/Acme-VOYAGEGROUP-ConferenceRoom/issues
  homepage: https://github.com/monmon/Acme-VOYAGEGROUP-ConferenceRoom
  repository: https://github.com/monmon/Acme-VOYAGEGROUP-ConferenceRoom.git
version: 0.01

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';
requires 'Encode::Locale';
requires 'UNIVERSAL::require';
requires 'JSON::XS';
requires 'XML::Smart';
requires 'Data::MessagePack';

on 'test' => sub {
    requires 'Test::More', '0.98';
    requires 'Test::Pretty';
    requires 'Test::Base::Less';
};

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}
    };
}