Merge pull request #1 from RsrchBoy/master

sort the role names
friedo · Jun 24, 2012 · ca1a048 · ca1a048
2 parents b8bab83 + adc46ec
commit ca1a048
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Pod/Weaver/Section/Consumes.pm b/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 ),