Devel-PDB

 view release on metacpan or  search on metacpan

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

61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
    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;
    }



( run in 0.414 second using v1.01-cache-2.11-cpan-10c994e2082 )