#!/usr/bin/env perl
#
# This file is part of Reindeer
#
# This software is Copyright (c) 2017, 2015, 2014, 2012, 2011 by Chris Weyl.
#
# This is free software, licensed under:
#
# The GNU Lesser General Public License, Version 2.1, February 1999
#
use strict;
use warnings;
use Test::More;
use Test::Moose::More 0.009;
use Test::Requires {
'MooseX::Attribute::ENV' => '0.02',
};
# Validate that the trait is applied
{ package TestClass; use Reindeer; has one => (traits => [ENV], is => 'ro'); }
{ package TestClass::Role; use Reindeer::Role; has one => (traits => [ENV], is => 'ro'); }
{ package TestClass::Compose; use Reindeer; with 'TestClass::Role'; }
for my $class (qw{ TestClass TestClass::Compose }) {
with_immutable {
validate_class $class => (
attributes => [ one => { does => [ 'MooseX::Attribute::ENV' ] } ],
);
} $class;
}
done_testing;