/usr/share/perl5/Statistics/Basic/StdDev.pm is in libstatistics-basic-perl 1.6611-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | package Statistics::Basic::StdDev;
use strict;
use warnings;
use Carp;
use base 'Statistics::Basic::_OneVectorBase';
sub new {
my $class = shift;
warn "[new $class]\n" if $Statistics::Basic::DEBUG >= 2;
my $this = bless {}, $class;
my $variance = $this->{V} = eval { Statistics::Basic::Variance->new(@_) } or croak $@;
my $vector = $this->{v} = $variance->query_vector;
my $c = $vector->_get_computer( 'stddev' ); return $c if defined $c;
$vector->_set_computer( stddev => $this );
return $this;
}
sub _recalc {
my $this = shift;
my $first = shift;
delete $this->{recalc_needed};
my $var = $this->{V}->query;
return unless defined $var;
# no need to query filled here, variance does it for us
warn "[recalc " . ref($this) . "] sqrt( $var )\n" if $Statistics::Basic::DEBUG;
$this->{_value} = sqrt( $var );
return;
}
sub query_mean {
my $this = shift;
return $this->{V}->query_mean;
}
1;
|