Re: Tie::Hash::Cannabinol

[Paul Makepeace]

On Wed, Jun 06, 2001 at 05:10:43AM -0500, Richard Clyne wrote:
> If you request more items than are in the queue (e.g. lots of empty
> seats) the queue returns the items in order.  If you request less items
> than are in the queue (Bus almost full) the largest items push through
> and are selected.

package BusStop;

sub FETCH  {
        rand > .99 ? (
                $self->{$keys[rand @keys]},
                $self->{$keys[rand @keys]},
                $self->{$keys[rand @keys]}) : undef;
}

Paul

-- 
Always the first steps