Import Moose/t/010_basics/*.t

[gitmo/Mouse.git] / t / 010_basics / failing / 020-global-destruction-helper.pl

diff --git a/t/010_basics/failing/020-global-destruction-helper.pl b/t/010_basics/failing/020-global-destruction-helper.pl
new file mode 100755 (executable)
index 0000000..a0defbe
--- /dev/null
+++ b/t/010_basics/failing/020-global-destruction-helper.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl\r
+\r
+use strict;\r
+use warnings;\r
+\r
+\r
+{\r
+    package Foo;\r
+    use Mouse;\r
+\r
+    sub DEMOLISH {\r
+        my $self = shift;\r
+        my ($igd) = @_;\r
+\r
+        print $igd;\r
+    }\r
+}\r
+\r
+{\r
+    package Bar;\r
+    use Mouse;\r
+\r
+    sub DEMOLISH {\r
+        my $self = shift;\r
+        my ($igd) = @_;\r
+\r
+        print $igd;\r
+    }\r
+\r
+    __PACKAGE__->meta->make_immutable;\r
+}\r
+\r
+our $foo = Foo->new;\r
+our $bar = Bar->new;\r