require 5.6.0; # hoh's are ambiguous before 5.56 


##</code><code>##

 
sub _least_key { 
     my %self = (@_); 
     shift @{[ sort { $a <=> $b } keys %self ]}; 
   } 


##</code><code>##

# NON EXPORTED METHODS 


##</code><code>##

# EXPORTED METHODS 


##</code><code>##

 bless $self; # dont need to return() it because bless returns a ref.


##</code><code>##

 
  $self -> {$in} -> {cr} -> (); # run it, its valid, we leave the code ref 
     # to the hacker. however, rather than return, we implicitly return 
     # whatever the code they gave us returned for purposes of modularity 


##</code><code>##

 
return undef unless defined $self{$input}; 
$input; 


##</code><code>##

 return undef unless $self -> verify( $in ); 


##</code><code>##

return unless defined $self{$in}; 


##</code><code>##

shift @{[ sort { $a <=> $b } keys %self ]}; 


##</code><code>##

shift @{[ sort { $b <=> $a } keys %self ]}; 


##</code><code>##

foreach my $item ( sort( { $a <=> $b } keys %self ) ) { 


##</code><code>##

It is rather bloated to write menus with an object 


##</code><code>##

$self->{keys} = [ sort keys %{$self} ]


##</code><code>##

please see perldoc perlref for a description of why we want to 
use +{ } instead of just { }. It isnt strictly necessary, but quote 
"may break in the future."