view release on metacpan or  search on metacpan

lib/LPDS/Renderer.pm  view on Meta::CPAN

    say "after deletion: ";
    foreach my $model (@{$self->models}) {
        my $name = $self->data->get($model->get_iter,COL_NAME);
        say "\t$name";
    }

    # update axis ticks
    $self->update_all_axis;
}

sub update_axis {
    my $self = shift;
    my $name = shift;
    confess "no axis named $name" if !exists $self->axes->{$name};
    my $axis = $self->axes->{$name};

    my %extreme;    # mode => [min,max]
    
    foreach my $mode ( @{ $axis->modes } ) {
        my @values;
        foreach my $model ( @{ $self->models } ) {