sub nph {
  my $self = shift;

  $self->{'nph'} = 1;
  return $self;
}