NAME
Tree::FSMethods - Perform filesystem-like operations on object tree(s)
VERSION
This document describes version 0.002 of Tree::FSMethods (from Perl
distribution Tree-FSMethods), released on 2020-02-23.
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
<
https://metacpan.org/release/Tree-FSMethods>.
SOURCE
Source repository is at
<
https://github.com/perlancar/perl-Tree-FSMethods>.
BUGS
Please report any bugs or feature requests on the bugtracker website
<
https://rt.cpan.org/Public/Dist/Display.html?Name=Tree-FSMethods>
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.
SEE ALSO
Role::TinyCommons::Tree
AUTHOR
perlancar <
[email protected]>
COPYRIGHT AND LICENSE
This software is copyright (c) 2020 by
[email protected].
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.