Gecko [ gtgates.com ]

Name	Size	Permission	Date
Command	[ DIR ]	drwxr-xr-x	2020-12-20 04:53
Helpers	[ DIR ]	drwxr-xr-x	2020-12-20 03:47
Liblist	[ DIR ]	drwxr-xr-x	2020-12-20 04:53
MakeMaker	[ DIR ]	drwxr-xr-x	2020-12-20 04:53
ParseXS	[ DIR ]	drwxr-xr-x	2020-12-20 03:22
Typemaps	[ DIR ]	drwxr-xr-x	2020-12-20 03:22
Command.pm	7.63 KB	-r--r--r--	2020-11-19 19:57
Config.pm	2.06 KB	-r--r--r--	2014-06-25 15:37
Helpers.pm	2.72 KB	-r--r--r--	2016-09-09 17:26
Install.pm	39.63 KB	-r--r--r--	2020-12-20 04:53
InstallPaths.pm	19.46 KB	-r--r--r--	2018-05-10 19:03
Installed.pm	14.03 KB	-r--r--r--	2020-12-20 04:53
Liblist.pm	9.29 KB	-r--r--r--	2020-11-19 19:57
MANIFEST.SKIP	971 B	-r--r--r--	2020-12-20 04:53
MM.pm	2.13 KB	-r--r--r--	2020-11-19 19:57
MM_AIX.pm	1.46 KB	-r--r--r--	2020-11-19 19:57
MM_Any.pm	80.9 KB	-r--r--r--	2020-11-19 19:57
MM_BeOS.pm	1.04 KB	-r--r--r--	2020-11-19 19:57
MM_Cygwin.pm	4.03 KB	-r--r--r--	2020-11-19 19:57
MM_DOS.pm	1.04 KB	-r--r--r--	2020-11-19 19:57
MM_Darwin.pm	1.45 KB	-r--r--r--	2020-11-19 19:57
MM_MacOS.pm	901 B	-r--r--r--	2020-11-19 19:57
MM_NW5.pm	5.35 KB	-r--r--r--	2020-11-19 19:57
MM_OS2.pm	3.15 KB	-r--r--r--	2020-11-19 19:57
MM_OS390.pm	2.22 KB	-r--r--r--	2020-11-19 19:57
MM_QNX.pm	907 B	-r--r--r--	2020-11-19 19:57
MM_UWIN.pm	994 B	-r--r--r--	2020-11-19 19:57
MM_Unix.pm	112.49 KB	-r--r--r--	2020-11-19 19:57
MM_VMS.pm	66.68 KB	-r--r--r--	2020-11-19 19:57
MM_VOS.pm	762 B	-r--r--r--	2020-11-19 19:57
MM_Win32.pm	14.71 KB	-r--r--r--	2020-11-19 19:57
MM_Win95.pm	1.26 KB	-r--r--r--	2020-11-19 19:57
MY.pm	676 B	-r--r--r--	2020-11-19 19:57
MakeMaker.pm	106.62 KB	-r--r--r--	2020-11-19 19:57
Manifest.pm	22.89 KB	-r--r--r--	2020-12-20 04:53
Mkbootstrap.pm	3.2 KB	-r--r--r--	2020-11-19 19:57
Mksymlists.pm	10.75 KB	-r--r--r--	2020-11-19 19:57
Packlist.pm	8.36 KB	-r--r--r--	2020-12-20 04:53
ParseXS.pm	65.01 KB	-r--r--r--	2017-07-31 15:46
ParseXS.pod	4.3 KB	-r--r--r--	2017-07-31 15:46
Typemaps.pm	26.17 KB	-r--r--r--	2017-07-31 15:46
testlib.pm	911 B	-r--r--r--	2020-11-19 19:57
xsubpp	4.95 KB	-r--r--r--	2017-07-31 15:46

Rename

package ExtUtils::Helpers;
$ExtUtils::Helpers::VERSION = '0.026';
use strict;
use warnings FATAL => 'all';
use Exporter 5.57 'import';

use Config;
use File::Basename qw/basename/;
use File::Spec::Functions qw/splitpath canonpath abs2rel splitdir/;
use Text::ParseWords 3.24 ();

our @EXPORT_OK = qw/make_executable split_like_shell man1_pagename man3_pagename detildefy/;

BEGIN {
	my %impl_for = ( MSWin32 => 'Windows', VMS => 'VMS');
	my $package = 'ExtUtils::Helpers::' . ($impl_for{$^O} || 'Unix');
	my $impl = $impl_for{$^O} || 'Unix';
	require "ExtUtils/Helpers/$impl.pm";
	"ExtUtils::Helpers::$impl"->import();
}

sub split_like_shell {
	my ($string) = @_;

return if not defined $string;
	$string =~ s/^\s+|\s+$//g;
	return if not length $string;

return Text::ParseWords::shellwords($string);
}

sub man1_pagename {
	my $filename = shift;
	return basename($filename).".$Config{man1ext}";
}

my %separator = (
	MSWin32 => '.',
	VMS => '__',
	os2 => '.',
	cygwin => '.',
);
my $separator = $separator{$^O} || '::';

sub man3_pagename {
	my ($filename, $base) = @_;
	$base ||= 'lib';
	my ($vols, $dirs, $file) = splitpath(canonpath(abs2rel($filename, $base)));
	$file = basename($file, qw/.pm .pod/);
	my @dirs = grep { length } splitdir($dirs);
	return join $separator, @dirs, "$file.$Config{man3ext}";
}

# ABSTRACT: Various portability utilities for module builders

__END__

=pod

=encoding utf-8

=head1 NAME

ExtUtils::Helpers - Various portability utilities for module builders

=head1 VERSION

version 0.026

=head1 SYNOPSIS

use ExtUtils::Helpers qw/make_executable split_like_shell/;

unshift @ARGV, split_like_shell($ENV{PROGRAM_OPTS});
 write_script_to('Build');
 make_executable('Build');

=head1 DESCRIPTION

This module provides various portable helper functions for module building modules.

=head1 FUNCTIONS

=head2 make_executable($filename)

This makes a perl script executable.

=head2 split_like_shell($string)

This function splits a string the same way as the local platform does.

=head2 detildefy($path)

This function substitutes a tilde at the start of a path with the users homedir in an appropriate manner.

=head2 man1_pagename($filename)

Returns the man page filename for a script.

=head2 man3_pagename($filename, $basedir)

Returns the man page filename for a Perl library.

=head1 ACKNOWLEDGEMENTS

Olivier Mengué and Christian Walde made C<make_executable> work on Windows.

=head1 AUTHORS

=over 4

=item *

Ken Williams <kwilliams@cpan.org>

=item *

Leon Timmermans <leont@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut