view release on metacpan or  search on metacpan

lib/Devel/PDB/NamedListbox.pm  view on Meta::CPAN

    DB::dialog_message(-title => $item->{name}, -message => $item->{long_value});
}

sub named_list {
    my ($this, $list) = @_;

    $this->{-named_list} = $list if defined $list;
    $this->{-named_list};
}

sub update {
    my ($this, $refresh) = @_;
    my $list = $this->{-named_list};
    my @display;

    if ($this->{-sort_key}) {

        # Must sort array like this, other methods not worked properly
        my @a = sort { $a->{name} cmp $b->{name} } @$list;
        @$list = @a;
    }