Help for this page

Select Code to Download


  1. or download this
    my $active = shift;
    
  2. or download this
    my $active=shift;
    return unless $active;
    
  3. or download this
    while (my($screen_name, $function) = each %states) {                
        $function->($screen_name eq $current_screen);
    }
    
  4. or download this
    my($screen_name, $function) = each %states