Added .children(:all) for nodes and schemas

It returns all the nodes as a single list

META6.json

@@ -1,7 +1,7 @@
 {
     "name" : "OO::Schema",
     "perl" : "6.*",
-    "version" : "0.2.0",
+    "version" : "0.2.1",
     "description" : "Declare class relationships in a single module",
     "authors"     : ["Lloyd Fournier"],
     "provides"    : {

README.md

@@ -281,9 +281,11 @@ usually called on the schema.
 ``` perl6
 Userland.children # Windows, POSIX
 POSIX.children # BSD, GNU
+GNU.children(:all) # Debian, Ubuntu, RHEL, Fedora,CentOS
 ```
 
-returns the node's child nodes.
+Returns the node's direct child nodes. if `:all` is passed, returns
+all descendants.
 
 ## Traits
 

lib/OO/Schema.pm6

@@ -40,8 +40,8 @@ my role SchemaNode  {
         }
     }
 
-    submethod children {
-        self.^children;
+    submethod children(:$all){
+        |self.^children, |(self.^children».children(:all) if $all);
     }
 }
 
@@ -111,7 +111,7 @@ my role Schema {
     submethod resolve($test) {
         self.^children.map(*.resolve($test)).first(* !=== Any);
     }
-    submethod children { self.^children }
+    submethod children(:$all) { flat self.^children,(|self.^children».children(:all) if $all) };
 }
 
 

t/04-children.t

@@ -0,0 +1,33 @@
+use Test;
+use lib $?FILE.IO.parent.child("lib01").Str;
+
+plan 4;
+
+{
+    use OS::Userland;
+    ok Userland.children ~~ set(Windows,POSIX),".children";
+    ok Userland.children(:all) ~~ set(
+        Windows,
+        XP,
+        WindowsServer,
+        POSIX,
+        BSD,
+        FreeBSD,
+        OpenBSD,
+        OSX,
+        GNU,
+        Debian,
+        Ubuntu,
+        RHEL,
+        Fedora,
+        CentOS,
+    ),".children(:all)";
+    ok GNU.children ~~ set(Debian,RHEL),"GNU.children";
+    ok GNU.children(:all) ~~ set(
+        Debian,
+        Ubuntu,
+        RHEL,
+        Fedora,
+        CentOS,
+    ),"GNU.children(:all)";
+}