sub new {
   my $class = shift;
   my $self = register( $class );