Constants in 5.10 will sometimes show up as scalar refs in the symbol…

… table.

Probably some optimization.  rt.cpan.org 40495

Changes

@@ -1,4 +1,8 @@
 0.07
+  Bug Fixes:
+  * Classes which defined constants did not work with mixin on
+    Perl 5.10.x. [rt.cpan.org 40495]
+
   Interface:
   - Slightly better error message when trying to use a mixin and you're
     not of the right class.

lib/mixin.pm

@@ -156,7 +156,7 @@ sub _thieve_public_methods {
     while( my($sym, $glob) = each %{$mixin.'::'}) {
         next if $sym =~ /^_/;
         next unless defined $glob;
-        *glob = *$glob;
+        *glob = *{$mixin.'::'.$sym};
         *{$pkg.'::'.$sym} = *glob{CODE} if *glob{CODE};
     }
 

t/constant.t

@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+# 5.10.0 changed the way constants are represented in the symbol table.
+
+use strict;
+use Test::More tests => 2;
+
+{
+    package A;
+    use mixin::with 'Top';
+    use constant FOO => "Bar";
+}
+
+{
+    package Top;
+    sub new { bless {}, shift }
+}
+
+{
+    package MixinUser;
+    use base qw(Top);
+    use mixin qw(A);
+}
+
+pass("Mixins work with classes using constants");
+is(MixinUser->new->FOO, "Bar", "Expected constant value");