This file is indexed.

/usr/share/perl5/File/Path/Tiny.pod is in libfile-path-tiny-perl 0.7-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
=encoding utf8

=head1 NAME

File::Path::Tiny - recursive versions of mkdir() and rmdir() without as much overhead as File::Path

=head1 VERSION

This document describes File::Path::Tiny version 0.7

=head1 SYNOPSIS

    use File::Path::Tiny;

    if(!File::Path::Tiny::mk($path)) {
        die "Could not make path '$path': $!";
    }
    
    if(!File::Path::Tiny::rm($path)) {
        die "Could not remove path '$path': $!";
    }

=head1 DESCRIPTION

The goal here is simply to provide recursive versions of L<mkdir>() and L<rmdir>() with as little code and overhead as possible.

This module is in no way meant to derogate L<File::Path> and is in no way an endorsement to go out and replace all use of L<File::Path> with L<File::Path::Tiny>.

L<File::Path> is very good at what it does but there's simply a lot happening that we can do without much of the time.

Here are some things L<File::Path> has/does that this module attempts to do without:

=over 4

=item * multiple interfaces

Backwards compatibility brings in a lot of code and logic that we don't need from here on out.

=item * chdir()s

It does a ton of chdir()s which could leave you somewhere you're not planning on being and requires much more overhead to do.

=item * can croak not allowing you to detect and handle failure

Just let me handle errors how I want. Don't make my entire app die or have to wrap it in an eval

=item * A well intentioned output system

Just let me do the output how I want. (Nothing, As HTML, print to a filehandle, etc...)

=item * A well intentioned and experimental (IE subject to change) error handling system.

Just keep it simple and detect failure via a boolean check and do what I want with the error. See L</"How can I make/remove multiple paths?">

=item * According to its POD, removing a tree is apparently not safe unless you tell it to be with the ‘safe’ or 'keep_root' attributes.

Seems like that should just happen, I don't want to worry about accidentally removing / when I pass it /tmp

=back

=head1 INTERFACE 

Nothing in exported or exportable, that helps keep it '::Tiny'.

=head2 File::Path::Tiny::mk()

Takes a single path (like L<mkdir>()) to recursively create and, optionally, a mask (like L<mkdir>()) for all subsequent L<mkdir>() calls.

Mask defaults to 0700 (also like L<mkdir>())

Returns false if it could not be made, true otherwise (returns ‘2’ if it is -d already)

It is recursive in the sense that given “foo/bar/baz” as the path to create all 3 will be created if necessary.

=head2 File::Path::Tiny::rm()

Takes a single path (like L<rmdir>()) to recursively empty and remove.

Returns false if it could not be emptied or removed, true otherwise. (returns ‘2’ if it is !-d already)

It is recursive in the sense that given “/foo/bar/baz” as the path to remove it will recursively empty ‘baz’ and then remove it from /foo/bar.

Its parents, /, /foo, and /foo/bar are *not* touched.

=head2 File::Path::Tiny::empty_dir()

Takes a single path to recursively empty  but not remove.

Returns false when there is a problem.

=head2 File::Path::Tiny::mk_parent()

Like mk() but recursively creates the parent. e.g. given “foo/bar/baz.txt” creates foo/bar.

=head1 DIAGNOSTICS

Throws no warnings or errors of its own

If the functions ever return false, $! will have been set either explicitly or by the L<mkdir>(), L<rmdir>(), L<unlink>(), or L<opendir>() that ultimately returned false.

=head1 MISC

=head2 How can I make/remove multiple paths?

For simplicity sake && ::Tiny status this module must be very very very simple.

That said it is also very simple to do multiple paths:

    for my $path (@paths) {
        File::Path::Tiny::::mk($path) or _my_handle_failed_mk($path, $!);    
    }
    
    for my $path (@paths) {
        File::Path::Tiny::::rm($path) or _my_handle_failed_rm($path, $!);    
    }

That also lets you keep going or short circuit it or handle errors however you like:

     PATH:
     for my $path qw(foo/bar bar/rat) {
         if (!File::Path::Tiny::mk($path)) {
             print "problem unlinking '$path': $!\n";
             last PATH;
         }
         else {
             print "No error encountered with '$path'\n" 
         }
     }

=head2 About the '::Tiny' status

See L<Acme::Tiny> for information on the ::Tiny suffix.

  #3 is almost there (< 1/5th +/-), a bit more trimming and I think we'll have it!
  #8 is N/A since part of the "sub set" is to do single paths like their non-recursive core counterparts and there are so many ways to invoke it with different consequences 

   [ -- RSS Memory -- ]
    Baseline perl 1168
    File::Path 1808 (+640)
    File::Path::Tiny 1288 (+120)

Even though "time" isn't really a ::Tiny factor, it does improve loading a bit:

   [ -- time -- ]
    Baseline perl
      real	0m0.007s
      user	0m0.002s
      sys	0m0.004s
    
    File::Path
      real	0m0.017s
      user	0m0.011s
      sys	0m0.005s

    File::Path::Tiny
      real	0m0.007s
      user	0m0.003s
      sys	0m0.004s

As time allows and more tests are added I'll try to include more comprehensive benchmark results.

=head2 How do I make sure the path is safe to create or remove?

Of course the answer depends on what you mean by "safe". 

This module makes no assumptions on interpreting the "safeness" of a path, just like L<mkdir>() and L<rmdir>().

Also like  L<mkdir>() and L<rmdir>() typically you'll find that filesystem permissions are a pretty reliable tool (of course if the code will be run as root you would want to setuid first...)

You might use Cwd::abs_path() to sanitize a path before sending it to be made or removed.

Even after that it might not be "safe" so you'll need to discern what your particular definition of "safe" is and take appropriate action.

=head1 DEPENDENCIES

L<File::Spec> of course but its only loaded if needed

=head1 INCOMPATIBILITIES

None reported.

=head1 BUGS AND LIMITATIONS

No bugs have been reported.

Please report any bugs or feature requests to
C<bug-file-path-tiny@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.

=head1 AUTHOR

Daniel Muey  C<< <http://drmuey.com/cpan_contact.pl> >>

=head1 LICENCE AND COPYRIGHT

Copyright (c) 2008, Daniel Muey C<< <http://drmuey.com/cpan_contact.pl> >>. All rights reserved.

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.

=head1 DISCLAIMER OF WARRANTY

BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
NECESSARY SERVICING, REPAIR, OR CORRECTION.

IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.