Select Code to Download

Select or download this
require 5.6.0; # hoh's are ambiguous before 5.56

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

Select or download this
# NON EXPORTED METHODS
Select or download this
# EXPORTED METHODS
Select or download this
bless $self; # dont need to return() it because bless returns a ref.

Select or download this

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

Select or download this

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

Select or download this
return undef unless $self -> verify( $in );
Select or download this
return unless defined $self{$in};
Select or download this
shift @{[ sort { $a <=> $b } keys %self ]};
Select or download this
shift @{[ sort { $b <=> $a } keys %self ]};
Select or download this
foreach my $item ( sort( { $a <=> $b } keys %self ) ) {
Select or download this
It is rather bloated to write menus with an object
Select or download this
$self->{keys} = [ sort keys %{$self} ]

Select or download this

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."