Define sort order in Categories.categories-list

dwarring · dwarring · commit bb38add87b75 · 2019-01-04T08:53:34.000+13:00
diff --git a/lib/Examples/Categories.pm b/lib/Examples/Categories.pm
@@ -16,16 +16,16 @@ class Categories is export {
     has %.categories;
 
     submethod TWEAK {
-        for %!categories-table.keys -> $category-key {
-            %!categories{$category-key} = Category.new(
-                                            key => $category-key,
-                                            title => %!categories-table{$category-key},
+        for %!categories-table.kv -> $key, $title {
+            %!categories{$key} = Category.new(
+                                            :$key,
+                                            :$title,
                                             );
         }
     }
 
     method categories-list {
-        return %!categories.values;
+        return %!categories.pairs.sort.map(*.value);
     }
 
     method append-subcategories(:$to-category, :$subcategories) {

Original file line number	Diff line number	Diff line change
`@@ -16,16 +16,16 @@ class Categories is export {`
`16`	`16`	`has %.categories;`
`17`	`17`
`18`	`18`	`submethod TWEAK {`
`19`		`- for %!categories-table.keys -> $category-key {`
`20`		`- %!categories{$category-key} = Category.new(`
`21`		`- key => $category-key,`
`22`		`- title => %!categories-table{$category-key},`
	`19`	`+ for %!categories-table.kv -> $key, $title {`
	`20`	`+ %!categories{$key} = Category.new(`
	`21`	`+ :$key,`
	`22`	`+ :$title,`
`23`	`23`	`);`
`24`	`24`	`}`
`25`	`25`	`}`
`26`	`26`
`27`	`27`	`method categories-list {`
`28`		`- return %!categories.values;`
	`28`	`+ return %!categories.pairs.sort.map(*.value);`
`29`	`29`	`}`
`30`	`30`
`31`	`31`	`method append-subcategories(:$to-category, :$subcategories) {`