Permalink
Browse files

Merge pull request #1 from RsrchBoy/master

sort the role names
  • Loading branch information...
2 parents b8bab83 + adc46ec commit ca1a04831143ce6deb9a3cfcf6ad6a98839a8358 @friedo committed Jun 24, 2012
Showing with 6 additions and 2 deletions.
  1. +6 −2 lib/Pod/Weaver/Section/Consumes.pm
@@ -30,7 +30,11 @@ sub weave_section {
return unless $module->can( 'meta' );
- my @roles = grep { $_->name ne $module } $self->_get_roles( $module );
+ my @roles = sort
+ grep { $_ ne $module }
+ map { $_->name }
+ $self->_get_roles( $module );
+
return unless @roles;
my @pod = (
@@ -42,7 +46,7 @@ sub weave_section {
( map {
Command->new( {
command => 'item',
- content => sprintf '* L<%s>', $_->name
+ content => "* L<$_>",
} ),
} @roles ),

0 comments on commit ca1a048

Please sign in to comment.