Help for this page

Select Code to Download


  1. or download this
    my %flags;
{
...
  my $flags = B::svref_2object(\($_[0]))->FLAGS;
  join ' ', sort grep $flags & $flags{$_}, keys %flags;
}
  2. or download this
      is flags($copy), flags($value),
    "$value_name: quotify doesn't modify input";