From 53dc59ca22077f3cd4a75c017159396627b4b6ba Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Wed, 22 Jan 2014 18:20:42 -0500 Subject: [PATCH] Fixes Moose warnings due to updated way to call enum() --- lib/PostScript/Barcode/Meta/Types.pm | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lib/PostScript/Barcode/Meta/Types.pm b/lib/PostScript/Barcode/Meta/Types.pm index 9890d16..65c563d 100644 --- a/lib/PostScript/Barcode/Meta/Types.pm +++ b/lib/PostScript/Barcode/Meta/Types.pm @@ -7,11 +7,16 @@ use Moose::Util::TypeConstraints qw(enum subtype as where); our $VERSION = '0.006'; -enum 'PostScript::Barcode::Meta::Types::Enum::azteccode::format' => qw(full compact rune); -enum 'PostScript::Barcode::Meta::Types::Enum::datamatrix::encoding' => qw(byte ascii edifact c40 text x12); -enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::eclevel' => qw(L M Q H); -enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::version' => (qw(M1 M2 M3 M4), 1 .. 40); -enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::format' => qw(full micro); +enum 'PostScript::Barcode::Meta::Types::Enum::azteccode::format' + => [qw(full compact rune)]; +enum 'PostScript::Barcode::Meta::Types::Enum::datamatrix::encoding' + => [[qw(byte ascii edifact c40 text x12)]; +enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::eclevel' + => [qw(L M Q H)]; +enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::version' + => [(qw(M1 M2 M3 M4), 1 .. 40)]; +enum 'PostScript::Barcode::Meta::Types::Enum::qrcode::format' + => [qw(full micro)]; subtype 'PostScript::Barcode::Meta::Types::Bool' => as 'Bool'; subtype 'PostScript::Barcode::Meta::Types::Num' => as 'Num'; subtype 'PostScript::Barcode::Meta::Types::Tuple' => as 'ArrayRef[Num]' => where {2 == @{$_}};