#!/usr/bin/perl -w
use strict;
use lib 't/lib';
use Test::More tests => 7;
use Module::Info;
my $moo = Module::Info->new_from_module( 'Moo' );
is( $moo->version, '0.12' );
is( $moo->safe, 0 );
my $safe_moo = Module::Info->new_from_module( 'Moo' );
$safe_moo->safe(1);
is( $moo->safe, 0, 'safe attribute is per-object' );
is( $safe_moo->safe, 1 );
eval {
$safe_moo->version;
};
isnt( $@, undef, '$Moo::VERSION is unsafe' );
my $safe_foo = Module::Info->new_from_module( 'Foo' );
$safe_foo->safe(1);
eval {
is( $safe_foo->version, '7.254' );
};
is( $@, '', '$Foo::VERSION is safe' );