sub variance {
  my $self = shift;  ##Myself
  my $div = @_ ? 0 : 1;
...
    $variance /= $count - $div;