Select Code to Download

my %flags;
{
...
  my $flags = B::svref_2object(\($_[0]))->FLAGS;
  join ' ', sort grep $flags & $flags{$_}, keys %flags;
}

  is flags($copy), flags($value),
    "$value_name: quotify doesn't modify input";