Result:
found more than 687 distributions - search limited to the first 2001 files matching your query
( run in 5.112 )
App-CekBpom
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.911",
"Data::Sah::Compiler::perl::TH::bool" : "0.911",
"Data::Sah::Compiler::perl::TH::str" : "0.911",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Date::Format::ISO8601" : "0",
"Exporter" : "5.57",
"HTTP::CookieJar::LWP" : "0",
"JSON::Encode::TableData" : "0",
"LWP::UserAgent::Plugin" : "0.004",
App-Changelog2x
view release on metacpan or search on metacpan
lib/App/Changelog2x.pm view on Meta::CPAN
my ($self, $format) = @_;
if ($format)
{
$self->{format} =
($format eq 'unix') ? '%a %b %d %T TZ_SHORT %Y' : $format;
}
$self->{format} || $self->default_date_format;
}
lib/App/Changelog2x.pm view on Meta::CPAN
is used.
See L<DateTime/"strftime Patterns"> for a description of the formatting
codes to use in a format string.
One special value is recognized: C<unix>. If C<date_format> is called with
this value as a format string, a pre-defined format is used that emulates the
UNIX C<date> command as closely as possible (but see L</CAVEATS> for notes
on B<DateTime> limitations with regards to timezone names and the special
patterns recognized in date format strings to try and work around this). A
string formatted this way looks like this:
App-Chart
view release on metacpan or search on metacpan
lib/App/Chart/Database/Create.pm view on Meta::CPAN
HERE
# DATABASE_SCHEMA_VERSION revisions
#
# Schema 1, version 99.015
# - "latest" - fetch_timestamp rather than fetch_unixtime
# - "intraday_image" - fetch_timestamp likewise
# - "extra" - timestamp strings rather than unixtime numbers
# - "info" - new exchange column
#
# Schema 2, version 99.023
# - "preference" - missed PRIMARY KEY
#
lib/App/Chart/Database/Create.pm view on Meta::CPAN
App::Chart::DBI::DATABASE_SCHEMA_VERSION(),"\n";
require App::Chart::Download;
App::Chart::Database::call_with_transaction
($dbh, sub {
# version 1 adopting timestamps instead of unixtime
if ($dbversion <= 0) { _upgrade_0_to_1 ($dbh); }
if ($dbversion <= 1) { _upgrade_1_to_2 ($dbh); }
$dbh->do ("INSERT OR REPLACE INTO extra (symbol,key,value)
VALUES ('','database-schema-version',?)",
lib/App/Chart/Database/Create.pm view on Meta::CPAN
$dbh->do ($create_latest);
$dbh->do ('DROP TABLE intraday_image');
$dbh->do ($create_intraday_image);
$dbh->do ("DELETE FROM extra WHERE key like '%unixtime'");
App::Chart::Download::consider_latest_from_daily
([ App::Chart::Database->symbols_list() ]);
}
sub _upgrade_1_to_2 {
my $nbh = nbh();
App-Cheats
view release on metacpan or search on metacpan
system qq(/bin/bash -c "diff -u <(echo a) <(echo b)");
system qq(/bin/bash -c "diff -u <(echo \\"a a2 a3\\") <(echo \\"b b2 b3\\")");
#############################################################
## Linux Commands - dos2unix
#############################################################
# Fix files endings of all files in folder (recursive)
find . -type f -print0 | xargs -0 dos2unix
# Convert newlines to unix format (trim off carriage returns, like dos2unix)
perl -lpe 'BEGIN{$n=chr 13; $r=qr/$n$/} s/$r//'
#############################################################
## Linux Commands - dpkg
#############################################################
## Netcat Listener (nc)
#############################################################
# Start netcat listener on a specific port (Unix)
nc -nlvp 4445
# Start netcat listener on a specific port (MacOS)
nc -nvl 4444
#############################################################
## Perl Modules - Crypt::PasswdMD5
#############################################################
# Generate MD5 Password
perl -MCrypt::PasswdMD5 -lE 'say unix_md5_crypt('pass','salt')'
openssl passwd -1 -salt salt pass
#############################################################
## Perl Modules - Cwd
## Perl Modules - PerlIO
#############################################################
# View the encoding layers applied to a filehandle.
perl -E 'say for PerlIO::get_layers(*STDOUT)'
unix
perlio
perl -C -E 'say for PerlIO::get_layers(*STDOUT)'
unix
perlio
utf8
perl -CO -E 'say for PerlIO::get_layers(*STDOUT)'
unix
perlio
utf8
#############################################################
#############################################################
## SQLite3 Database
#############################################################
# Install sqlite on Unix (after in zipping the amalgamation file. make sure these 3 are present:
# shell.c, sqlite3.c, sqlite3.h). rename to a.out to sqlite3
# (database, sqlite3)
gcc shell.c sqlite3.c -lpthread -ldl
# View all the tables in a database (database, sqlite3)
App-CheckArchiveFilename
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Filename::Archive" : "0.033",
"Filename::Compressed" : "0.050",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
App-CheckPerlReleaseFilename
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Filename::Type::Perl::Release" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
"perl" : "5.010001",
App-ChromeUtils
view release on metacpan or search on metacpan
lib/App/ChromeUtils.pm view on Meta::CPAN
=item * B<quiet> => I<true>
(No description)
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
=item * B<quiet> => I<true>
(No description)
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
=item * B<quiet> => I<true>
(No description)
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
A modern browser now runs complex web pages and applications. Despite browser's
power management feature, these pages/tabs on the browser often still eat
considerable CPU cycles even though they only run in the background. Pausing
(kill -STOP) the browser processes is a simple and effective way to stop CPU
eating on Unix and prolong your laptop battery life. It can be performed
whenever you are not using your browser for a little while, e.g. when you are
typing on an editor or watching a movie. When you want to use your browser
again, simply unpause (kill -CONT) it.
The C<pause-and-unpause> action pause and unpause browser in an alternate
lib/App/ChromeUtils.pm view on Meta::CPAN
If one of the C<*-pat> options are specified, then instead of the default
heuristic rules to find the browser processes, these C<*-pat> options are solely
used to determine which processes are the browser processes.
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
A modern browser now runs complex web pages and applications. Despite browser's
power management feature, these pages/tabs on the browser often still eat
considerable CPU cycles even though they only run in the background. Pausing
(kill -STOP) the browser processes is a simple and effective way to stop CPU
eating on Unix and prolong your laptop battery life. It can be performed
whenever you are not using your browser for a little while, e.g. when you are
typing on an editor or watching a movie. When you want to use your browser
again, simply unpause (kill -CONT) it.
This function is not exported.
lib/App/ChromeUtils.pm view on Meta::CPAN
If one of the C<*-pat> options are specified, then instead of the default
heuristic rules to find the browser processes, these C<*-pat> options are solely
used to determine which processes are the browser processes.
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
If one of the C<*-pat> options are specified, then instead of the default
heuristic rules to find the browser processes, these C<*-pat> options are solely
used to determine which processes are the browser processes.
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
If one of the C<*-pat> options are specified, then instead of the default
heuristic rules to find the browser processes, these C<*-pat> options are solely
used to determine which processes are the browser processes.
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/ChromeUtils.pm view on Meta::CPAN
If one of the C<*-pat> options are specified, then instead of the default
heuristic rules to find the browser processes, these C<*-pat> options are solely
used to determine which processes are the browser processes.
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
App-Chronicle
view release on metacpan or search on metacpan
lib/Chronicle/Plugin/Generate/Archive.pm view on Meta::CPAN
#
my %hash;
my %index;
my $all = $dbh->prepare(
"SELECT strftime( '%m %Y', date, 'unixepoch') FROM blog ORDER BY date")
or
die "Failed to prepare";
$all->execute() or die "Failed to execute:" . $dbh->errstr();
lib/Chronicle/Plugin/Generate/Archive.pm view on Meta::CPAN
{
$mon = $1;
$year = $2;
}
my $ids = $dbh->prepare(
"SELECT id FROM blog WHERE strftime( '%m %Y', date, 'unixepoch') = ? ORDER BY date DESC"
) or
die "Failed to prepare";
$ids->execute($ym) or die "Failed to execute:" . $dbh->errstr();
App-Cinema
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
App-Cleo-Patra
view release on metacpan or search on metacpan
distribution at F<examples/pinto.demo>. This file is for illustration only,
so don't expect it to actually work for you.
=head1 LIMITATIONS
C<patra> only works on Unix-like platforms.
=head1 TODO
=over 4
App-Cleo
view release on metacpan or search on metacpan
distribution at `examples/pinto.demo`. This file is for illustration only,
so don't expect it to actually work for you.
# LIMITATIONS
`cleo` only works on Unix-like platforms. It may work on Windows if you use
Cygwin. Personally, I have only used `cleo` on Mac OS X.
# TODO
- Jump to arbitrary command number
App-Cmd-Starter
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file .= '.pm';
foreach my $dir ( @INC ) {
next if ref $dir;
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
App-Codeowners
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
'xt/author/portability.t',
'xt/release/consistent-version.t',
'xt/release/cpan-changes.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
App-CommonMarkUtils
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# modify generated Makefile to generate shell completion scripts. this piece
# is generated by Dist::Zilla::Plugin::GenShellCompletion version 0.11.
GEN_SHELL_COMPLETION:
{
last unless grep { $^O eq $_ } ("aix","beos","cygwin","darwin","dragonfly","freebsd","gnukfreebsd","haiku","hpux","interix","irix","linux","midnightbsd","minix","mirbsd","netbsd","openbsd","sco","solaris");
print "Modifying Makefile to generate shell completion on install\n";
open my($fh), "<", "Makefile" or die "Can't open generated Makefile: $!";
my $content = do { local $/; ~~<$fh> };
App-CompleteCLIs
view release on metacpan or search on metacpan
"Complete::Regexp::Pattern" : "0",
"Complete::Riap" : "0",
"Complete::Riap::Clientless" : "0",
"Complete::Sah" : "0.012",
"Complete::TZ" : "0.080",
"Complete::Unix" : "0.07",
"Complete::Util" : "0.618",
"Complete::Vivaldi" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Coerce::perl::To_str::From_str::normalize_perl_modprefix" : "0",
"Data::Sah::Compiler::perl::TH::any" : "0.914",
"Data::Sah::Compiler::perl::TH::hash" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::obj" : "0.914",
"Data::Sah::Compiler::perl::TH::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Filter::perl::Perl::normalize_perl_modname" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::dirname" : "0",
App-ConMenu
view release on metacpan or search on metacpan
lib/App/ConMenu.pm view on Meta::CPAN
App::ConMenu is a very simple console menu application it allows you to display a menu of
choices then select one of those by pressing the corresponding number. This will cause ComMenu
to execute the associated commands in the menu.yml file.
The C<m.pl> in the scripts dir is a script that creates a menu by using the module. By default
the script uses ~/.con_menu.yml on unix type systems and <HOMEDIR>\_con_menu.yml on Windows type systems. If
the files do not exist then you will be prompted to create an example version.
=head1 LICENSE
Copyright (C) Michael Mueller.
App-Config-Chronicle
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
'xt/boilerplate.t',
'xt/release/common_spelling.t',
'xt/release/cpan-changes.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
App-Context
view release on metacpan or search on metacpan
lib/App/Context/NetServer.pm view on Meta::CPAN
#
# log_level 0-4 2
# log_file (filename|Sys::Syslog) undef
#
# ## syslog parameters
# syslog_logsock (unix|inet) unix
# syslog_ident "identity" "net_server"
# syslog_logopt (cons|ndelay|nowait|pid) pid
# syslog_facility \w+ daemon
#
# port \d+ 20203
# host "host" "*"
# proto (tcp|udp|unix) "tcp"
# listen \d+ SOMAXCONN
#
# reverse_lookups 1 undef
# allow /regex/ none
# deny /regex/ none
App-ConvertLogAnyToLogGer
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# modify generated Makefile to generate shell completion scripts. this piece
# is generated by Dist::Zilla::Plugin::GenShellCompletion version 0.11.
GEN_SHELL_COMPLETION:
{
last unless grep { $^O eq $_ } ("aix","beos","cygwin","darwin","dragonfly","freebsd","gnukfreebsd","haiku","hpux","interix","irix","linux","midnightbsd","minix","mirbsd","netbsd","openbsd","sco","solaris");
print "Modifying Makefile to generate shell completion on install\n";
open my($fh), "<", "Makefile" or die "Can't open generated Makefile: $!";
my $content = do { local $/; ~~<$fh> };
App-Countdown
view release on metacpan or search on metacpan
App-Countdown
This command line application implements "countdown", a command similar to
the UNIX sleep command (see http://en.wikipedia.org/wiki/Sleep_%28Unix%29 ),
only that it displays the number of seconds remaining before the timeout.
It accepts a single command line argument of an integer with the number
of seconds left.
App-CpanfileSlipstop
view release on metacpan or search on metacpan
t/files/indent.snapshot view on Meta::CPAN
DateTime::TimeZone::America::North_Dakota::New_Salem 2.19
DateTime::TimeZone::America::Ojinaga 2.19
DateTime::TimeZone::America::Panama 2.19
DateTime::TimeZone::America::Pangnirtung 2.19
DateTime::TimeZone::America::Paramaribo 2.19
DateTime::TimeZone::America::Phoenix 2.19
DateTime::TimeZone::America::Port_au_Prince 2.19
DateTime::TimeZone::America::Port_of_Spain 2.19
DateTime::TimeZone::America::Porto_Velho 2.19
DateTime::TimeZone::America::Puerto_Rico 2.19
DateTime::TimeZone::America::Punta_Arenas 2.19
t/files/indent.snapshot view on Meta::CPAN
DateTime::TimeZone::Indian::Maldives 2.19
DateTime::TimeZone::Indian::Mauritius 2.19
DateTime::TimeZone::Indian::Reunion 2.19
DateTime::TimeZone::Local 2.19
DateTime::TimeZone::Local::Android 2.19
DateTime::TimeZone::Local::Unix 2.19
DateTime::TimeZone::Local::VMS 2.19
DateTime::TimeZone::MET 2.19
DateTime::TimeZone::MST 2.19
DateTime::TimeZone::MST7MDT 2.19
DateTime::TimeZone::OffsetOnly 2.19
t/files/indent.snapshot view on Meta::CPAN
File::HomeDir::Darwin::Cocoa 1.004
File::HomeDir::Driver 1.004
File::HomeDir::FreeDesktop 1.004
File::HomeDir::MacOS9 1.004
File::HomeDir::Test 1.004
File::HomeDir::Unix 1.004
File::HomeDir::Windows 1.004
requirements:
Carp 0
Cwd 3
ExtUtils::MakeMaker 0
t/files/indent.snapshot view on Meta::CPAN
Module::Build::Dumper 0.4224
Module::Build::Notes 0.4224
Module::Build::PPMMaker 0.4224
Module::Build::Platform::Default 0.4224
Module::Build::Platform::MacOS 0.4224
Module::Build::Platform::Unix 0.4224
Module::Build::Platform::VMS 0.4224
Module::Build::Platform::VOS 0.4224
Module::Build::Platform::Windows 0.4224
Module::Build::Platform::aix 0.4224
Module::Build::Platform::cygwin 0.4224
App-Cpanx
view release on metacpan or search on metacpan
lib/App/Cpanx.pm view on Meta::CPAN
tar -x -v -f ~/.cpanx/Win32-Locale-0.04.tar.gz -C ~/.cpanx
x Win32-Locale-0.04/
/usr/bin/perl Makefile.PL
Checking if your kit is complete...
Looks good
Generating a Unix-style Makefile
Writing Makefile for Win32::Locale
Writing MYMETA.yml and MYMETA.json
Acme-MetaSyntactic 1.014 (not installed)
Themed metasyntactic variables names
App-CrockfordBase32Utils
view release on metacpan or search on metacpan
"Convert::Base32::Crockford" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Encode::Base32::Crockford" : "0",
"Exporter" : "5.57",
"Log::ger" : "0.038",
"Math::Random::Secure" : "0",
"Perinci::CmdLine::Any" : "0.154",
App-DBBrowser
view release on metacpan or search on metacpan
lib/App/DBBrowser/Table/Extensions/ScalarFunctions.pm view on Meta::CPAN
my $to_date = 'TO_DATE';
my $to_epoch = 'TO_EPOCH';
my $to_number = 'TO_NUMBER';
my $to_timestamp = 'TO_TIMESTAMP';
my $to_timestamp_tz = 'TO_TIMESTAMP_TZ';
my $unixepoch = 'UNIXEPOCH';
my $cast = 'CAST';
my $coalesce = 'COALESCE';
lib/App/DBBrowser/Table/Extensions/ScalarFunctions.pm view on Meta::CPAN
$strftime => [ 'SQLite', undef , undef , undef, 'DuckDB', undef , undef, undef , undef , undef ],
$strptime => [ undef , undef , undef , undef, 'DuckDB', undef , undef, undef , undef , undef ],
$date_format => [ undef , 'mysql', 'MariaDB', undef, undef , undef , undef, undef , undef , undef ],
$format => [ undef , 'mysql', 'MariaDB', undef, undef , undef , undef, undef , undef , 'MSSQL' ], # DuckDB: construct formatted strings
$str_to_date => [ undef , 'mysql', 'MariaDB', undef, undef , undef , undef, undef , undef , undef ],
$unixepoch => [ 'SQLite', undef , undef , undef, undef , undef , undef, undef , undef , undef ],
},
other => {
$cast => [ 'SQLite', 'mysql', 'MariaDB', 'Pg' , 'DuckDB', 'Firebird', 'DB2' , 'Informix', 'Oracle', 'MSSQL' ],
$coalesce => [ 'SQLite', 'mysql', 'MariaDB', 'Pg' , 'DuckDB', 'Firebird', 'DB2' , 'Informix', 'Oracle', 'MSSQL' ],
},
App-DBCritic
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/schema/lib/perl5/MySchema.pm',
't/schema/lib/perl5/MySchema/Result/Item.pm',
't/script.t'
);
eol_unix_ok( $_, { trailing_whitespace => 1 } ) foreach @files;
done_testing;
App-DBIUtils
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# modify generated Makefile to generate shell completion scripts. this piece
# is generated by Dist::Zilla::Plugin::GenShellCompletion version 0.11.
GEN_SHELL_COMPLETION:
{
last unless grep { $^O eq $_ } ("aix","beos","cygwin","darwin","dragonfly","freebsd","gnukfreebsd","haiku","hpux","interix","irix","linux","midnightbsd","minix","mirbsd","netbsd","openbsd","sco","solaris");
print "Modifying Makefile to generate shell completion on install\n";
open my($fh), "<", "Makefile" or die "Can't open generated Makefile: $!";
my $content = do { local $/; ~~<$fh> };
App-DH
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
[-Compatibility::PodMinimumVersion]
[Compatibility::ProhibitThreeArgumentOpen]
[Compatibility::ProhibitUnixDevNull]
[ControlStructures::ProhibitCStyleForLoops]
[ControlStructures::ProhibitCascadingIfElse]
App-DNS-Adblock
view release on metacpan or search on metacpan
lib/App/DNS/Adblock.pm view on Meta::CPAN
system("networksetup -setsearchdomains $self->{service} empty");
}
}
}
if (!grep { $^O eq $_ } qw(VMS MSWin32 os2 dos MacOS darwin NetWare beos vos)) { # is unix
eval {
($stdout, $stderr, @result) = capture { system("cp /etc/resolv.conf /etc/resolv.bk") };
if ($stderr || ($result[0] < 0)) {
die $stderr || $result[0];
} else {
lib/App/DNS/Adblock.pm view on Meta::CPAN
system("networksetup -setsearchdomains $self->{service} empty");
}
}
}
if (!grep { $^O eq $_ } qw(VMS MSWin32 os2 dos MacOS darwin NetWare beos vos)) { # is unix
eval {
($stdout, $stderr, @result) = capture { system("mv /etc/resolv.bk /etc/resolv.conf") };
die $stderr || $result[0];
}
}
App-DPath
view release on metacpan or search on metacpan
yaml - YAML::Any (default; not using YAML::Syck)
json - JSON
xml - XML::Simple
ini - Config::INI::Serializer
dumper - Data::Dumper (including the leading $VAR1 variable assignment)
flat - pragmatic flat output for typical unixish cmdline usage
=head2 The 'flat' output format
The C<flat> output format is meant to support typical unixish command
line uses. It is not a strong serialization format but works well for
simple values nested max 2 levels.
Output looks like this:
App-DWG-Sort
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
delete $args{prefix};
}
return $args{_self} if $args{_self};
$base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS';
$args{dispatch} ||= 'Admin';
$args{prefix} ||= 'inc';
$args{author} ||= ($^O eq 'VMS' ? '_author' : '.author');
$args{bundle} ||= 'inc/BUNDLES';
( run in 5.112 seconds using v1.01-cache-2.11-cpan-64ef6c95b5d )