commit sketch files

[scpubgit/DKit.git] / notes / sketches / 2.fs.arrayref.form

diff --git a/notes/sketches/2.fs.arrayref.form b/notes/sketches/2.fs.arrayref.form
new file mode 100644 (file)
index 0000000..d9e7289
--- /dev/null
+++ b/notes/sketches/2.fs.arrayref.form
@@ -0,0 +1,13 @@
+  [ path_status => [ qw(PathStatus Path) ],
+    [ member_lookup => qw(PathStatus path_status path Path) ] ],
+  [ path_status => [ qw(PathStatus Path) ],
+    [ observe => qw(PathStatus path_status DX::Lib::FS::Observation::PathStatus path Path) ],
+    [ member_lookup => qw(PathStatus path_status path Path) ] ],
+  [ is_directory => [ 'PS' ],
+    [ constrain => [ 'PS' ], sub { $_[0]->has_info and $_[0]->info->is_directory } ] ],
+  [ is_file => [ 'PS' ],
+    [ constrain => [ 'PS' ], sub { $_[0]->has_info and $_[0]->info->is_file } ] ],
+  [ directory_at => [ qw(D P) ],
+    [ call => path_status => qw(D P) ],
+    [ call => is_directory => 'D' ] ],
+