Devel-PDB
view release on metacpan or search on metacpan
lib/Devel/PDB/NamedListbox.pm view on Meta::CPAN
616263646566676869707172737475767778798081
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 )