Commit e98d34dbcf49ce26c822debd31d91798eee18a71 - libfile-path-tiny-perl

Imported Upstream version 0.2 Alessandro Ghedini 12 years ago

5 changed file(s) with 81 addition(s) and 60 deletion(s). Raw diff Collapse all Expand all

-0

Changes less more

0	0	Revision history for File-Path-Tiny
	1
	2	0.2 Sun Mar 11 16:50:44 2012
	3	rt 51728 Missing colon in synopsis
	4	rt 75688 using deprecated for qw() in 00.load.t
	5	perltidy
1	6
2	7	0.1 Mon Nov 17 20:09:59 2008
3	8	Initial release.

+21

-10

META.yml less more

0		# http://module-build.sourceforge.net/META-spec.html
1		#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
2		name: File-Path-Tiny
3		version: 0.1
4		version_from: lib/File/Path/Tiny.pm
5		installdirs: site
	0	--- #YAML:1.0
	1	name: File-Path-Tiny
	2	version: 0.2
	3	abstract: recursive versions of mkdir() and rmdir() without as much overhead as File::Path
	4	author:
	5	- Daniel Muey <http://drmuey.com/cpan_contact.pl>
	6	license: unknown
	7	distribution_type: module
	8	configure_requires:
	9	ExtUtils::MakeMaker: 0
	10	build_requires:
	11	ExtUtils::MakeMaker: 0
6	12	requires:
7		Test::More: 0
8
9		distribution_type: module
10		generated_by: ExtUtils::MakeMaker version 6.30
	13	Test::More: 0
	14	no_index:
	15	directory:
	16	- t
	17	- inc
	18	generated_by: ExtUtils::MakeMaker version 6.56
	19	meta-spec:
	20	url: http://module-build.sourceforge.net/META-spec-v1.4.html
	21	version: 1.4

+18

-18

lib/File/Path/Tiny.pm less more

0	0	package File::Path::Tiny;
1	1
2		$File::Path::Tiny::VERSION = 0.1;
	2	$File::Path::Tiny::VERSION = 0.2;
3	3
4	4	sub mk {
5		my ($path,$mask) = @_;
	5	my ( $path, $mask ) = @_;
6	6	return 2 if -d $path;
7		if (-e $path) { $! = 20;return; }
8		$mask \|\|= '0777'; # Perl::Critic == Integer with leading zeros at ...
9		$mask = oct($mask) if substr($mask,0,1) eq '0';
	7	if ( -e $path ) { $! = 20; return; }
	8	$mask \|\|= '0777'; # Perl::Critic == Integer with leading zeros at ...
	9	$mask = oct($mask) if substr( $mask, 0, 1 ) eq '0';
10	10	require File::Spec;
11		my ($progressive, @parts) = File::Spec->splitdir($path);
12		if (!$progressive) {
13		$progressive = File::Spec->catdir($progressive, shift(@parts));
	11	my ( $progressive, @parts ) = File::Spec->splitdir($path);
	12	if ( !$progressive ) {
	13	$progressive = File::Spec->catdir( $progressive, shift(@parts) );
14	14	}
15		if(!-d $progressive) {
16		mkdir($progressive, $mask) or return;
	15	if ( !-d $progressive ) {
	16	mkdir( $progressive, $mask ) or return;
17	17	}
18	18	for my $part (@parts) {
19		$progressive = File::Spec->catdir($progressive,$part);
20		if (!-d $progressive) {
21		mkdir($progressive, $mask) or return;
	19	$progressive = File::Spec->catdir( $progressive, $part );
	20	if ( !-d $progressive ) {
	21	mkdir( $progressive, $mask ) or return;
22	22	}
23	23	}
24	24	return 1 if -d $path;

27	27
28	28	sub rm {
29	29	my ($path) = @_;
30		if (-e $path && !-d $path) { $! = 20;return; }
	30	if ( -e $path && !-d $path ) { $! = 20; return; }
31	31	return 2 if !-d $path;
32		opendir(DIR, $path) or return;
	32	opendir( DIR, $path ) or return;
33	33	my @contents = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
34	34	closedir DIR;
35	35	require File::Spec if @contents;
36	36	for my $thing (@contents) {
37		my $long = File::Spec->catdir($path, $thing);
38		if (!-l $long && -d $long) {
	37	my $long = File::Spec->catdir( $path, $thing );
	38	if ( !-l $long && -d $long ) {
39	39	rm($long) or return;
40	40	}
41	41	else {

46	46	return 1;
47	47	}
48	48
49		1;⏎
	49	1;

-3

lib/File/Path/Tiny.pod less more

3	3
4	4	=head1 VERSION
5	5
6		This document describes File::Path::Tiny version 0.1
	6	This document describes File::Path::Tiny version 0.2
7	7
8	8	=head1 SYNOPSIS
9	9
10	10	use File::Path::Tiny;
11	11
12		if(!File::Path::Tiny:mk($path)) {
	12	if(!File::Path::Tiny::mk($path)) {
13	13	die "Could not make path '$path': $!";
14	14	}
15	15
16		if(!File::Path::Tiny:rm($path)) {
	16	if(!File::Path::Tiny::rm($path)) {
17	17	die "Could not remove path '$path': $!";
18	18	}
19	19

+34

-29

t/00.load.t less more

2	2	use lib '../lib';
3	3
4	4	BEGIN {
5		use_ok( 'File::Path::Tiny' );
	5	use_ok('File::Path::Tiny');
6	6	}
7	7
8		diag( "Testing File::Path::Tiny $File::Path::Tiny::VERSION" );
	8	diag("Testing File::Path::Tiny $File::Path::Tiny::VERSION");
9	9
10	10	# cleanup from last time
11	11
12		for my $path qw(
13		foo/bar/mode foo/bar/mode2 foo/bar/mode3
14		foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir
	12	for my $path (
	13	qw(
	14	foo/bar/mode foo/bar/mode2 foo/bar/mode3
	15	foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir
15	16	foo/bar/file foo/bar foo
16		) {
17		if (!-l $path && -d $path) {
	17	)
	18	) {
	19	if ( !-l $path && -d $path ) {
18	20	rmdir $path;
19	21	}
20	22	else {

24	26
25	27	SKIP: {
26	28	skip 'Stale testing files exist', 5 if -d 'foo/bar';
27		ok(File::Path::Tiny::mk("foo/bar"), "make simple path - return true");
28		ok(-d "foo/bar", "make simple path - path recursively created");
29		ok(File::Path::Tiny::mk("foo") == 2, "make already existing dir");
30		if( open my $fh, '>', 'foo/bar/file') {
	29	ok( File::Path::Tiny::mk("foo/bar"), "make simple path - return true" );
	30	ok( -d "foo/bar", "make simple path - path recursively created" );
	31	ok( File::Path::Tiny::mk("foo") == 2, "make already existing dir" );
	32	if ( open my $fh, '>', 'foo/bar/file' ) {
31	33	print {$fh} "test";
32	34	close $fh;
33	35	}
34		SKIP: {
	36	SKIP: {
35	37	skip 'test file not created', 2 if !-e 'foo/bar/file';
36		ok(!File::Path::Tiny::mk("foo/bar/file"), "make already existing non dir - return false");
37		ok($! == 20, "make already existing file - errno");
	38	ok( !File::Path::Tiny::mk("foo/bar/file"), "make already existing non dir - return false" );
	39	ok( $! == 20, "make already existing file - errno" );
38	40	}
39	41	}
40	42
41	43	mkdir 'foo/bar/dir';
42	44
43		my $mk_mode = (stat('foo/bar'))[2];
	45	my $mk_mode = ( stat('foo/bar') )[2];
	46
44	47	# $mk_mode = sprintf('%04o', $mk_mode & 07777);
45		my $mkdir_mode = (stat('foo/bar/dir'))[2];
	48	my $mkdir_mode = ( stat('foo/bar/dir') )[2];
	49
46	50	# $mkdir_mode = sprintf('%04o', $mkdir_mode & 07777);
47	51	# diag("mk: $mk_mode, mkdir: $mkdir_mode");
48		ok($mk_mode == $mkdir_mode, 'MASK logic gets same results as mkdir()');
	52	ok( $mk_mode == $mkdir_mode, 'MASK logic gets same results as mkdir()' );
49	53
50		File::Path::Tiny::mk("foo/bar/mode",0700);
	54	File::Path::Tiny::mk( "foo/bar/mode", 0700 );
51	55	mkdir 'foo/bar/mode_mkdir', 0700;
52		ok((stat('foo/bar/mode'))[2] == (stat('foo/bar/mode_mkdir'))[2], 'MASK arg OCT gets same results as mkdir()');
	56	ok( ( stat('foo/bar/mode') )[2] == ( stat('foo/bar/mode_mkdir') )[2], 'MASK arg OCT gets same results as mkdir()' );
53	57
54		File::Path::Tiny::mk("foo/bar/mode2",oct('0700'));
	58	File::Path::Tiny::mk( "foo/bar/mode2", oct('0700') );
55	59	mkdir 'foo/bar/mode_mkdir2', oct('0700');
56		ok((stat('foo/bar/mode2'))[2] == (stat('foo/bar/mode_mkdir2'))[2], 'MASK arg oct(STR) gets same results as mkdir()');
	60	ok( ( stat('foo/bar/mode2') )[2] == ( stat('foo/bar/mode_mkdir2') )[2], 'MASK arg oct(STR) gets same results as mkdir()' );
57	61
58		File::Path::Tiny::mk("foo/bar/mode3", "0700");
	62	File::Path::Tiny::mk( "foo/bar/mode3", "0700" );
	63
59	64	# mkdir 'foo/bar/mode_mkdir3', "0700"; # this breaks permissions so we compare with previous one
60		ok((stat('foo/bar/mode3'))[2] == (stat('foo/bar/mode2'))[2], 'MASK arg STR gets detected and handled - different results as mkdir()');
	65	ok( ( stat('foo/bar/mode3') )[2] == ( stat('foo/bar/mode2') )[2], 'MASK arg STR gets detected and handled - different results as mkdir()' );
61	66
62		ok(!File::Path::Tiny::rm("foo/bar/file"), "remove existing non dir - return false");
63		ok($! == 20, "remove existing non dir - errno");
	67	ok( !File::Path::Tiny::rm("foo/bar/file"), "remove existing non dir - return false" );
	68	ok( $! == 20, "remove existing non dir - errno" );
64	69	undef $!;
65		ok(File::Path::Tiny::rm('foo/bar'), "empty and remove simple path - return true");
66		ok(!-d 'foo/bar', "remove simple path - path recursively removed");
67		ok(File::Path::Tiny::rm('foo/bar') == 2, "remove already non-existing dir");
68		ok(File::Path::Tiny::rm('foo'), 'remove empty dir');⏎
	70	ok( File::Path::Tiny::rm('foo/bar'), "empty and remove simple path - return true" );
	71	ok( !-d 'foo/bar', "remove simple path - path recursively removed" );
	72	ok( File::Path::Tiny::rm('foo/bar') == 2, "remove already non-existing dir" );
	73	ok( File::Path::Tiny::rm('foo'), 'remove empty dir' );