my $active = shift;

##</code><code>##

my $active=shift;
return unless $active;

##</code><code>##

while (my($screen_name, $function) = each %states) {                
    $function->($screen_name eq $current_screen);
}

##</code><code>##

my($screen_name, $function) = each %states