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);
}
}
}
}
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';
view release on metacpan or search on metacpan
t/testdata/run_1/digests view on Meta::CPAN
{"8c7e54ed5c12598189b4a9a2eff39445":"/home/domm/perl5/perlbrew/perls/perl-5.14.1/lib/site_perl/5.14.1/x86_64-linux/Moose/Meta/Method/Accessor.pm","eb3d1bb78dd3cec22e05ebbe19f3734a":"/home/domm/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/x86_64-linux/...
view release on metacpan or search on metacpan
#systmem => white
# flashing connection color is user setable
!change name extra_point to resize_handle_color
#error asciio_ui.asciio doesn't display properly in unix color scheme
=> not an error, color was specificaly set
# autoshrink is default
# multi element creation keep the element selected
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
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Cwd" : "0",
"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",
"Data::Sah::Value::perl::Path::filenames" : "0.004",
"Exporter" : "5.57",
"File::Basename" : "0",
"File::MimeInfo::Magic" : "0",
"Image::Size" : "0",
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
warnings 0
ExtUtils-Helpers-0.028
pathname: L/LE/LEONT/ExtUtils-Helpers-0.028.tar.gz
provides:
ExtUtils::Helpers 0.028
ExtUtils::Helpers::Unix 0.028
ExtUtils::Helpers::VMS 0.028
ExtUtils::Helpers::Windows 0.028
requirements:
Carp 0
Exporter 5.57
cpanfile.snapshot view on Meta::CPAN
ExtUtils::MM_NW5 7.76
ExtUtils::MM_OS2 7.76
ExtUtils::MM_OS390 7.76
ExtUtils::MM_QNX 7.76
ExtUtils::MM_UWIN 7.76
ExtUtils::MM_Unix 7.76
ExtUtils::MM_VMS 7.76
ExtUtils::MM_VOS 7.76
ExtUtils::MM_Win32 7.76
ExtUtils::MM_Win95 7.76
ExtUtils::MY 7.76
cpanfile.snapshot view on Meta::CPAN
provides:
File::Listing 6.16
File::Listing::apache 6.16
File::Listing::dosftp 6.16
File::Listing::netware 6.16
File::Listing::unix 6.16
File::Listing::vms 6.16
requirements:
Exporter 5.57
ExtUtils::MakeMaker 0
HTTP::Date 0
cpanfile.snapshot view on Meta::CPAN
Module::Build::Dumper 0.4234
Module::Build::Notes 0.4234
Module::Build::PPMMaker 0.4234
Module::Build::Platform::Default 0.4234
Module::Build::Platform::MacOS 0.4234
Module::Build::Platform::Unix 0.4234
Module::Build::Platform::VMS 0.4234
Module::Build::Platform::VOS 0.4234
Module::Build::Platform::Windows 0.4234
Module::Build::Platform::aix 0.4234
Module::Build::Platform::cygwin 0.4234
cpanfile.snapshot view on Meta::CPAN
Exporter 5.63
File::Basename 0
File::Find 0
File::Path 0
File::Spec 0
File::Spec::Unix 0
File::Temp 0
File::Which 0
Getopt::Long 0
List::SomeUtils 0.55
List::Util 0
cpanfile.snapshot view on Meta::CPAN
URI::file::Base 5.32
URI::file::FAT 5.32
URI::file::Mac 5.32
URI::file::OS2 5.32
URI::file::QNX 5.32
URI::file::Unix 5.32
URI::file::Win32 5.32
URI::ftp 5.32
URI::ftpes 5.32
URI::ftps 5.32
URI::geo 5.32
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);
}
}
}
}
view release on metacpan or search on metacpan
lib/App/Base/Script/Common.pm view on Meta::CPAN
=head2 cli_template
The template usage form that should be shown to the user in the usage
statement when --help or an invalid invocation is provided.
Defaults to "(program name) [options]", which is pretty standard Unix.
=cut
sub cli_template {
return "$0 [options] "; # Override this if your script has a more complex command-line
view release on metacpan or search on metacpan
scripts/README.md view on Meta::CPAN
# Scripts for App::Basis::ConvertText2
The scripts will work on unix style systems, they may work on Windows if you are unix
a unix emulator like cygwin.
## uml
This script will convert text UML diagrams into PNGs. It uses PlantUML, which is
available (for convenience) in this directory but the latest release is at http://plantuml.sourceforge.net/
view release on metacpan or search on metacpan
lib/App/Basis/Queue.pm view on Meta::CPAN
Flag to show that this data data should be persisited (0 or 1).
This will become the only persistent record available until either it is replaced or expires.
=item expires (optional)
Time after which this data should be ignored. Accepts unix epoch time or parsable datetime string
=back
B<Example usage>
lib/App/Basis/Queue.pm view on Meta::CPAN
return \@data ;
}
# -----------------------------------------------------------------------------
# get chatter data (ordered by datetime added) after a unix time
# queue is the only parameter,
# returns arrayref of items
sub _recent_chatter
{
lib/App/Basis/Queue.pm view on Meta::CPAN
Coderef to handle any matched events
=item after (optional)
Unix time after which to listen for events, defaults to now, if set will skip persistent item checks
=item persist (optional)
Include the most recent persistent item, if using a wild card, this will match all the queues and could find multiple persistent items
lib/App/Basis/Queue.pm view on Meta::CPAN
Minimum number of events to listen for, stop after this many, may stop after more - this is across ALL the subscriptions
=item datetime (optional)
Unix epoch time or parsable datetime when to stop listening
=item persist (optional)
Include the most recent persistent item, if subscribed using using a wild card,
this will match all the queues and could find multiple persistent items
lib/App/Basis/Queue.pm view on Meta::CPAN
Name of the queue, wildcard allowed
=item before (optional)
Unix epoch or parsable datetime before which items should be purged
defaults to 'now'
=back
lib/App/Basis/Queue.pm view on Meta::CPAN
Name of the queue, wildcard allowed
=item before (optional)
Unix epoch or parsable datetime before which items should be purged
defaults to 'now'
=back
view release on metacpan or search on metacpan
lib/App/Basis/Config.pm view on Meta::CPAN
filename name of file to store config to, optional, will use object
instanced filename by default
=item get
Retrieve an item of config data. We use a unix style filepath to separate out
the individual elements.
We can also use ':' and '.' as path sepators, so valid paths are
/item/name/thing
lib/App/Basis/Config.pm view on Meta::CPAN
the data that will be returned.
B<Parameter>
filepath path to item to retrieve
#get an item from the config data based on a unix style path
my $value = $cfg->get( '/deep/nested/item') ;
# this is the same as same as accessing the raw data
my $data = $cfg->raw ;
my $value = $data->{deep}->{nested}->{item} ;
=item set
Store an item into the config.
# set the value of an item into the config data based on a unix style path
# this will mark the data as changed
$cfg->set( '/deep/nested/item', 123) ;
# same as accessing the raw_data, but this will not mark the data as changed
# my $data = $cfg->raw ;
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);
}
}
}
}
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
warnings 0
ExtUtils-Helpers-0.022
pathname: L/LE/LEONT/ExtUtils-Helpers-0.022.tar.gz
provides:
ExtUtils::Helpers 0.022
ExtUtils::Helpers::Unix 0.022
ExtUtils::Helpers::VMS 0.022
ExtUtils::Helpers::Windows 0.022
requirements:
Carp 0
Exporter 5.57
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';
view release on metacpan or search on metacpan
App::Bin4TSV::6
=head1 SYNOPSIS
This module provides a Unix-like commands of :
colgrep
colsummary
crosstable
csel
view release on metacpan or search on metacpan
App::Bin4TSV::8
=head1 SYNOPSIS
This module provides a Unix-like commands of :
colgrep
colsummary
crosstable
csel
view release on metacpan or search on metacpan
App::Bin4TSV::9
=head1 SYNOPSIS
This module provides a Unix-like commands of :
colgrep
colsummary
crosstable
csel
view release on metacpan or search on metacpan
lib/App/Bin4TSV.pm view on Meta::CPAN
App::Bin4TSV
=head1 SYNOPSIS
This module provides dozens of useful Unix-like commands to handle tabular text files especially TSV files.
=head1 DESCRIPTION
The included commands are as follows.
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::array" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0",
"Data::Sah::Compiler::perl::TH::float" : "0",
"Data::Sah::Compiler::perl::TH::int" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"IPC::System::Options" : "0.335",
"Log::ger" : "0.037",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Perinci::Sub::DepChecker" : "0",
view release on metacpan or search on metacpan
script/block-web-flooders view on Meta::CPAN
spanel_site => undef,
);
my %Whitelisted; # key = ip address
my $Dbh;
my %Blocked; # key = ip address, value = unix time (time blocked)
my %Ips; # key = ip address, value = expiring array
tie my @Messages, "Tie::Array::Expire", 15;
view release on metacpan or search on metacpan
version 0.06
=head1 DESCRIPTION
This program combines the power of three Unix tools (in their GNU versions): bool, find and grep to provide a way to search by filenames and/or by file contents using boolean expressions. Internaly, all boolean expressions with regexps/strings are tr...
Complex searches using B<grep> are very painful and B<bool> have lots of limitations and complex escape rules. B<bfg> simplify these searches by using more clear syntax and better performance in some cases.
For example, to search
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/author-pod-syntax.t',
't/basic.t',
't/release-pod-coverage.t'
);
eol_unix_ok($_, { trailing_whitespace => 0 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
warnings 0
ExtUtils-Helpers-0.026
pathname: L/LE/LEONT/ExtUtils-Helpers-0.026.tar.gz
provides:
ExtUtils::Helpers 0.026
ExtUtils::Helpers::Unix 0.026
ExtUtils::Helpers::VMS 0.026
ExtUtils::Helpers::Windows 0.026
requirements:
Carp 0
Exporter 5.57
view release on metacpan or search on metacpan
lib/App/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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/BraveUtils.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<signal> => I<unix::signal>
(No description)
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/BraveUtils.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
view release on metacpan or search on metacpan
lib/App/BrowserUtils.pm view on Meta::CPAN
our %argopt_users = (
users => {
'x.name.is_plural' => 1,
'x.name.singular' => 'user',
summary => 'Kill browser processes that belong to certain user(s) only',
schema => ['array*', of=>'unix::uid::exists*', 'x.perl.coerce_rules' => ['From_str::comma_sep']],
},
);
our %argopt_quiet = (
quiet => {
lib/App/BrowserUtils.pm view on Meta::CPAN
},
);
our %argopt_signal = (
signal => {
schema=>'unix::signal*',
cmdline_aliases => {s=>{}},
},
);
our %argopt_periods = (
lib/App/BrowserUtils.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.
MARKDOWN
lib/App/BrowserUtils.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/BrowserUtils.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/BrowserUtils.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/BrowserUtils.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.
See also the C<unpause_browsers> and the C<pause_and_unpause_browsers> routines.
lib/App/BrowserUtils.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/BrowserUtils.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/BrowserUtils.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<signal> => I<unix::signal>
(No description)
=item * B<users> => I<array[unix::uid::exists]>
Kill browser processes that belong to certain user(s) only.
=back
lib/App/BrowserUtils.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
view release on metacpan or search on metacpan
Version 0.72
x Try to avoid test failures when there is no support for manpages.
Version 0.71
x Fix tests to work under Windows and various Unix configurations.
Version 0.70
x Undo @ARGV stripping done by App::Options without relying on App::Options
internals.
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);
}
}
}
}
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/lib/T/Shared.pm',
't/lib/T/Travis.pm',
't/run-tcm.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
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);
}
}
}
}