use strict;
package Queue;

sub new {
  
  my ($self,$registry)=@_;
  return bless {'Registry'=>$registry}, ref($self)||$self;
}

# This code is untested, and might conceivably not work,
# or work in strange and unpredictable ways not 
# excluding FedEx'ing a camel to your doorstep.