view release on metacpan or  search on metacpan

devel/index.pl  view on Meta::CPAN

  }

  $list->InsertColumn(0, 'Index');
  $list->InsertColumn(1, 'Line', Wx::wxLIST_FORMAT_RIGHT() | Wx::wxGROW());

  my $fill = sub {
    my ($by_position) = @_;
    if ($by_position) {
      @index = sort {$a->{'position'} <=> $b->{'position'} } @index;
    } else {
      my $cmp = eval { require Sort::Naturally; 1 }
        ? \&Sort::Naturally::ncmp
          : sub { $_[0] cmp $_[1] };
      @index = sort {$cmp->($a->{'name'}, $b->{'name'})
                       || $a->{'position'} <=> $b->{'position'}
                     } @index;
    }

    my $prev_name = '';
    my $pos = 0;
    foreach my $entry (@index) {
      {