sub new {
   my $class = shift;
   my %self = validate(@_, {logger => { isa => 'Logger' } } );
   return( bless \%self, $class );
};