Congratulations, you've found a B::Deparse bug :)

perl -MO=Deparse,-p -e" my $self = bless {}, 1337; my $self->{poop} = 
+6;"
(my $self = bless({}, 1337));
($my $self{'poop'} = 6);
-e syntax OK
[download]