From: Tomas Doran Date: Tue, 12 Jan 2010 22:32:31 +0000 (+0000) Subject: DDS bug.. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fdds_bug;p=gitmo%2FMooseX-Antlers.git DDS bug.. --- diff --git a/t/dds_bug.t b/t/dds_bug.t new file mode 100644 index 0000000..16d2d72 --- /dev/null +++ b/t/dds_bug.t @@ -0,0 +1,30 @@ +use strict; +use warnings FATAL => 'all'; +use lib 't/lib'; +use Test::More; +use Data::Dump::Streamer; + +sub dump_meta { + my $meta = $_[0]; + local $meta->{methods}{meta}; + Dump($meta); +} + +{ + package One; + use Moose; + + __PACKAGE__->meta->make_immutable; +} +dump_meta(One->meta); +{ + package Three; + use Moose; + use Test::Exception; + + sub BUILD {} + + lives_ok { __PACKAGE__->meta->make_immutable }; +} + +done_testing;