Help for this page

Select Code to Download


  1. or download this
    $self->{foo} = [];
$self->{bar} = [];
$self->{gotit} = [ 5 ];
  2. or download this
    $self->{foo} = [ 1, 2, 3 ];
$self->{bar} = [ 4, 5, 3 ];
$self->{nerd} = [ 3, 4, 8 ];
$self->{geek} = 1;
$self->{useless} = 1;
  3. or download this
    foreach(@accessors) {
    if( ref($self->{$_}) eq "ARRAY" ) {
        push @tocheck, $_;
    }
}
  4. or download this
    foreach my $e ( all the self->{dontknow}->[]'s in @tocheck ) 
    { $isect{$e}++ }