NAME Tree::FSMethods - Perform filesystem-like operations on object tree(s) VERSION This document describes version 0.004 of Tree::FSMethods (from Perl distribution Tree-FSMethods), released on 2021-10-07. SYNOPSIS use Tree::FSMethods; my $fs = Tree::FSMethods->new( tree => $tree, # tree2 => $other_tree, # filename_method => 'filename', ); Listing files: # list top-level (root) my %nodes = $fs->ls; # ("foo"=>{...}, "bar"=>{...}, "baz"=>{...}) # specify path. will list all nodes under /proj. my %nodes = $fs->ls("/proj"); # specify wildcard. will list all nodes under /proj which has 'perl' in their # names. my %nodes = $fs->ls("/proj/*perl*"); DESCRIPTION METHODS new Usage: my $fs = Tree::FSMethods->new(%args); Arguments: * tree Optional. Object. The tree node object. A tree node object is any regular Perl object satisfying the following criteria: 1) it supports a "parent" method which should return a single parent node object, or undef if object is the root node); 2) it supports a "children" method which should return a list (or an arrayref) of children node objects (where the list/array will be empty for a leaf node). Note: you can use Role::TinyCommons::Tree::Node to enforce this requirement. * tree2 See "tree". Optional. Object. Used for some operations: "cp", "mv". * filename_method Optional. String or coderef. By default, will call "filename" method on tree node to get the filename of a node. If that method is not available, will use "title" method. If that method is also not available, will use its "hash address" given by the stringification, e.g. "HASH(0x56242e558740)" or "Foo=HASH(0x56242e558740)". If "filename_method" is specified and is a string, will use the method specified by it. If "filename_method" is a coderef, will call the coderef, passing the tree node as argument and expecting filename as the return value. If filename is empty, will use "unnamed". If filename is non-unique (in the same "directory"), will append ".2", ".3", ".4" (and so on) suffixes. cd Usage: $fs->cd($path_wildcard); Change working directory. Dies on failure. cd2 Just like "cd" but for the second tree ("tree2"). cwd Usage: my $cwd = $fs->cwd; Return current working directory. cwd2 Just like "cwd" but for the second tree ("tree2"). ls Usage: my %res = $fs->ls( [ $path_wildcard, ... ]); Dies on failure (e.g. can't cd to specified path). ls2 Just like "ls" but for the second tree ("tree2"). cp Usage: $fs->cp($src_path_wildcard, $target_path); Copies nodes from "tree" to "tree2" (or "tree", if "tree2" is not loaded). Dies on failure (e.g. can't find source or target path). Examples: $fs->cp("proj/*perl*", "proj/"); This will set nodes under "proj/" in the source tree matching wildcard "*perl*" to "proj/" in the target tree. mkdir Usage: $fs->mkdir([ \%opts, ] $path); Options: * parents Boolean. Just like the same --parents (-p) option in the Unix utility. If set to true, will create intermediate parents as necessary, and will not report error when the directory already exists. mkdir2 Just like "mkdir" but for the second tree ("tree2"). mv Usage: $fs->mv($src_path, $target_path); Moves nodes from "tree" to "tree2" (or "tree", if "tree2" is not loaded). Dies on failure (e.g. can't find source or target path). rm Usage: $fs->rm($path_wildcard); rm2 Just like "rm" but for the second tree ("tree2"). showtree Usage: my $str = $fs->showtree([ $starting_path ]); Like the DOS tree command, will return a visual representation of the "filesystem", e.g.: file1 file2 |-- file3 |-- file4 | |-- file5 | \-- file6 \-- file7 showtree2 Just like "showtree" but for the second tree ("tree2"). HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . SEE ALSO RoleBundle::TinyCommons::Tree AUTHOR perlancar CONTRIBUTING To contribute, you can send patches by email/via RT, or send pull requests on GitHub. Most of the time, you don't need to build the distribution yourself. You can simply modify the code, then test via: % prove -l If you want to build the distribution (e.g. to try to install it locally on your system), you can install Dist::Zilla, Dist::Zilla::PluginBundle::Author::PERLANCAR, and sometimes one or two other Dist::Zilla plugin and/or Pod::Weaver::Plugin. Any additional steps required beyond that are considered a bug and can be reported to me. COPYRIGHT AND LICENSE This software is copyright (c) 2021, 2020 by perlancar . This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.