The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
SVGraph-0.02
River stage zero No dependents
++
/ SVGraph::columns

sub GetMaxValue { my $self=shift; my $val;

        foreach (values %{$self->{data}})
        {
                $val=$_ if $_>$val;
        }

        return $val;
}

sub GetMinValue { my $self=shift; my $val;

        foreach (values %{$self->{data}})
        {
                $val=$_ if ($_<$val) || (!$val);
        }

        return $val;
}

sub GetIndex { my $self=shift; my $null;

        foreach (keys %{$self->{data}}){$null++}

        return $null;
}

sub GetValues { my $self=shift; #return %{$self->{data}}; return $self->{data}; }