Help for this page

Select Code to Download


  1. or download this
    perl -MData::Rmap=rmap_hash -le 'rmap_hash {print keys %{$_->{a}} } ({
    +a=>{1,2}})'
    
  2. or download this
    push @return, $self->_rmap($_) for values %$_;
    
  3. or download this
    # added exists check
    perl -MData::Rmap=rmap_hash -le 'rmap_hash {print keys %{$_->{a}} if e
    +xists $_->{a} } ({a=>{1,2}})'
    1