| Subject: | bug for assign an object pointer to constant |
this simple program:
#!/usr/bin/perl
use strict;
use warnings;
use Attribute::Constant;
use Data::Dumper;
package myclass;
sub new { my ($class,%params)=@_; return bless \%params,$class};
package main;
my $o=myclass->new(a => 1,b => 2);
my $x:Constant($o);
print Dumper($o,$x),"\n";
exit 0;
The dump omitted for $o and $x are different ($x is undef)