view release on metacpan or  search on metacpan

lib/App/WRT/Sort.pm  view on Meta::CPAN

=cut

sub sortable_from_entry {
  my ($entry) = @_;

  my @parts = map {

    my $padded;
    if (m/^\d+$/) {
      # There's a year 100k bug here, but I guess I'll cross that bridge when I
      # come to it:
      $padded = sprintf("%05d", $_);
    } else {
      $padded = $_;
    }
    $padded;

  } split '/', $entry;

  return join '', @parts;