Roman Fordinál > SVGraph > SVGraph::columns

Download:
SVGraph-0.02.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Source  

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}; } ^

syntax highlighting: