sub new {
    my $that  = shift;
    my $class = ref($that) || $that;
    my $self  = { 
	__name   => undef,
	__mpp    => [ (-1) x 10 ]
    };
    bless $self, $class;
    return $self;
}