4 use Test::More tests => 9;
12 $ENV{'444_test4'} = '444';
13 $ENV{"MooseX_Attribute_ENV_Test_Class_test5"} = 'packagetest';
16 package MooseX::Attribute::ENV::Test::Class;
19 use MooseX::Attribute::ENV;
53 env_package_prefix=>1,
59 env_package_prefix=>1,
67 ok( my $env = 'MooseX::Attribute::ENV::Test::Class'->new(), "Got a good object");
68 isa_ok( $env, 'MooseX::Attribute::ENV::Test::Class' );
70 is $env->test1, 111, "correct value";
71 is $env->test1a, 222, "correct value";
72 is $env->test3, 333, "correct value";
73 is $env->test3a, 444, "correct value";
74 is $env->test4, '444', "correct value";
75 is $env->test5, 'packagetest', "correct value";
76 is $env->test6, 'MooseX::Attribute::ENV::Test::Class', "correct value";