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/Algorithm/History/Levels.pm view on Meta::CPAN
typically want to keep certain number of backups only, for example: 7 daily
backups, 4 weekly backups, 6 monthly backups (so you practically have 6 months
of history but do not need to store 6*30 = 180 dumps, only 7 + 4 + 6 = 17). This
is the routine you can use to select which files to keep and which to discard.
You provide the list of histories either in the form of Unix timestamps:
[1497286800, 1497200400, 1497114000, ...]
or in the form of `[name, timestamp]` pairs, e.g.:
lib/Algorithm/History/Levels.pm view on Meta::CPAN
typically want to keep certain number of backups only, for example: 7 daily
backups, 4 weekly backups, 6 monthly backups (so you practically have 6 months
of history but do not need to store 6*30 = 180 dumps, only 7 + 4 + 6 = 17). This
is the routine you can use to select which files to keep and which to discard.
You provide the list of histories either in the form of Unix timestamps:
[1497286800, 1497200400, 1497114000, ...]
or in the form of C<[name, timestamp]> pairs, e.g.:
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
my @files = (
'lib/Algorithm/Kelly.pm',
't/Kelly.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);
}
}
}
}
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/Metadata.pm view on Meta::CPAN
return $self;
}
sub version_from {
my ( $self, $file ) = @_;
require ExtUtils::MM_Unix;
$self->version( ExtUtils::MM_Unix->parse_version($file) );
}
sub abstract_from {
my ( $self, $file ) = @_;
require ExtUtils::MM_Unix;
$self->abstract(
bless(
{ DISTNAME => $self->name },
'ExtUtils::MM_Unix'
)->parse_abstract($file)
);
}
sub _slurp {
view release on metacpan or search on metacpan
UpSIR7oOw7p+W/wHLQJffoMLNy/nEvm1S8dvi4Yev4nv7mmOYh2JkPhM1kCG/eVq
kZw7WuO1K41aN4KpWN3tJAzwr2GbQYLtTjegEwvFb+IyVjuTPRuREhDl5T+GFENF
5UIgkCPyg54xdk37g2gvdD3ysYdARl+mQFAdivqAa43Z0r6sGdr1YBTY3c0PX1Yo
yfr64UdT8Ff4hnBb+NVMczv4QTPtegMe8YoTEguGI8h3U5ufsMDyVjW2JfOSwNiI
efwoRRvkVMpUAv3H3CywgfJidChwhFC/NS5M+jzYaNHH5cP/1D9N0T2nfPVtqpwG
M7v7pLt5kN754TCxRyf4CgmK76XsfAuioQm4657nojNDUX07nixudEDDZYqE5PCB
GjhSuth4qCGNS5CDSYqICqWtP4ZfiD4c3mVv1nC1mM25wOCCnFteJzKI/KJ8MUuN
AVG3aR+LQEv1F5d1BeobzM4DCjwP8ESnzv2O+38/ROUa1O3ZJ5hE+B4OV5yXspxm
9tDOJTkoHLo/CyoqBdATq5E2TG36bt/AnzC7uGZLU4uRZCG32kDQfYg6+LwwZF64
Cr2C3Td4Sc7SB91FIiEHEwhDx/nz4AIj9zjbU62vWliOHVC55TteICOtPwARAQAB
tCFKb2UgU2NoYWVmZXIgPGpvZUBzdW5zdGFyc3lzLmNvbT6JAlQEEwEKAD4WIQR/
view release on metacpan or search on metacpan
Algorithm is freely available at:
<http://www.perl.org>
It is very likely that you will already have Algorithm installed if you
are using a Unix/Linux based system.
CPAN MODULES
JSON::XS
Please see the JSON::XS documentation.
view release on metacpan or search on metacpan
lib/Algorithm/Line/Bresenham.pm view on Meta::CPAN
=head2 C<varthick_line>
my @points= varthick_line($x0,$y0,$x1,$y1,$leftFn,$argL,$rightFn,$argR)
Variable thickness lines are implemented as described in
http://kt8216.unixcab.org/murphy/index.html ; This allows passing of
two subroutine references (so the left side and the right sides of the
line can have differently varying thicknesses) along with a
user originated parameter. The subroutine reference example is shown below:
my $leftFn=sub{
lib/Algorithm/Line/Bresenham.pm view on Meta::CPAN
};
=cut
## Variable thickness lines using Murphy's Modification of Bresenham Line Algorithm**
## Codes ported from C in http://kt8216.unixcab.org/murphy/index.html
#* X BASED LINES *
sub x_perpendicular{
my ($x0,$y0,$dx,$dy,$xstep,$ystep,$einit,$w_left,$w_right,$winit)=@_;
view release on metacpan or search on metacpan
None known, maybe after I write some tests.
=head1 AUTHOR
Richard Clamp <richardc@unixbeard.net>
=cut
view release on metacpan or search on metacpan
lib/Algorithm/MarkovChain.pm view on Meta::CPAN
I need to explain Markov Chains, and flesh out the examples some more.
=item Fix bugs/respond to feature requests
Just email me <richardc@unixbeard.net> and I'll hit it with hammers...
=back
=head1 BUGS
lib/Algorithm/MarkovChain.pm view on Meta::CPAN
That or they're jst stupid mistakes :)
=head1 AUTHOR
Richard Clamp <richardc@unixbeard.net>
=head1 SEE ALSO
perl(1).
view release on metacpan or search on metacpan
lib/Algorithm/Permute.pm view on Meta::CPAN
Edwin Pratomo <edpratomo@cpan.org> was the original author.
Stephan Loyd <sloyd@cpan.org> is co-maintainer after version 0.12.
The object oriented interface is taken from Tom Phoenix's C<List::Permutor>.
Robin Houston <robin@kitsite.com> invented and contributed the callback
style interface.
=head1 COPYRIGHT AND LICENSE
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/Algorithm/SkipList.pm view on Meta::CPAN
Robert Rothenberg <rrwo at cpan.org>
=head2 Acknowledgements
Carl Shapiro <cshapiro at panix.com> for introduction to skip lists.
=head2 Suggestions and Bug Reporting
Feedback is always welcome. Please use the CPAN Request Tracker at
L<http://rt.cpan.org> to submit bug reports.
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
return $self;
}
sub version_from {
my ($self, $version_from) = @_;
require ExtUtils::MM_Unix;
$self->version(ExtUtils::MM_Unix->parse_version($version_from));
}
sub abstract_from {
my ($self, $abstract_from) = @_;
require ExtUtils::MM_Unix;
$self->abstract(
bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix')
->parse_abstract($abstract_from)
);
}
1;
view release on metacpan or search on metacpan
lib/Algorithm/TSort.pm view on Meta::CPAN
# vim: ft=perl sts=4 ts=8 sw=4 et ff=unix
package Algorithm::TSort;
use 5.007003;
use strict;
use warnings;
require Exporter;
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
# - "auto": try binary install if possible (default)
# - "source": try from-source install only
# - "binary": try from-binary install only
# NOTE
# - 7zip provides the '7zz' binary on Unix-likes and the '7z.exe' binary on
# Windows.
# - p7zip is a fork which provides the '7z' binary on Unix-likes.
plugin 'Probe::CommandLine' => (
command => $_,
match => qr/7-Zip (?:\Q(z) \E)?([0-9\.]+)/,
version => qr/7-Zip (?:\Q(z) \E)?([0-9\.]+)/,
) for qw( 7z.exe 7zz );
];
after build => sub {
my($build) = @_;
$build->runtime_prop->{'style'} = 'source';
if( $^O ne 'MSWin32' ) {
# on Unix-likes (linux, darwin)
$build->runtime_prop->{command} = '7zz';
} else {
# TODO not yet implemented
$build->runtime_prop->{command} = '7z.exe';
}
};
plugin 'Build::Copy';
after build => sub {
my($build) = @_;
$build->runtime_prop->{'style'} = 'binary';
# on Unix-likes (linux, darwin)
$build->runtime_prop->{command} = '7zz';
};
}
}
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
inc/My/Builder/Unix.pm view on Meta::CPAN
package My::Builder::Unix;
use strict;
use warnings;
use Devel::CheckLib;
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/release-kwalitee.t',
't/release-meta-json.t',
't/release-pause-permissions.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
lib/Alien/Base/Dino.pm view on Meta::CPAN
developers have limited time and access to many platforms, which means
that many platforms will probably never get Alien support.
Static libraries on the other hand pretty much work the same on all
platforms. Even on Windows which likes to be different, static
libraries are essentially the same as on Unix.
=back
So all that said, why have I written this module, which provides support
for dynamic libraries? Well, maybe I am wrong, maybe it isn't that
view release on metacpan or search on metacpan
lib/Alien/Base/ModuleBuild/API.pod view on Meta::CPAN
...
);
...
A common pitfall with environment variables is that setting one to the
empty string (C<''>) is not portable. On Unix it works fine as you would
expect, but in Windows it actually unsets the environment variable, which
may not be what you intend.
...
Alien::Base::ModuleBuild->new(
lib/Alien/Base/ModuleBuild/API.pod view on Meta::CPAN
This key may be specified with the C<exact_filename> key when the version of the tarball is known.
=item platform
This attribute is a string telling the repository validator which platform the repository serves. This may be the string C<src> (the default) for platform-independent source files, or a string which matches the L<Module::Build> method C<os_type> (e.g...
=item c_compiler_required
If true (the default), then a C compiler is required to build from source.
lib/Alien/Base/ModuleBuild/API.pod view on Meta::CPAN
Call the given helper, either provided by the C<alien_helper> or C<alien_bin_requires> property. See L<Alien::Base#alien_helper>.
=item %c
Platform independent incantation for running autoconf C<configure> script. On *nix systems this is C<./configure>, on Windows this is C<sh configure>. On windows L<Alien::MSYS> is injected as a dependency and all commands are executed in an C<MSYS>...
=item %n
Shortcut for the name stored in C<alien_name>
lib/Alien/Base/ModuleBuild/API.pod view on Meta::CPAN
=item %p
B<deprecated>
Platform independent "local command prefix". On *nix systems this is C<./>, on Windows it is an empty string.
%pconfigure
Please note that this only works to run scripts on Unix, and does not work on Windows. It is thus, not fit for purpose and should not be used. As an alternative:
=over 4
=item autoconf "configure"
If you are trying to invoke the autoconf configure script, use C<%c> instead. This will use the correct incantation on either Unix like systems and on Windows.
=item Some other script
Invoke the interpreter directly. For example, if you have a Python script use C<python foo.py>, if you have a Perl script use "%X foo.pl", if you have an sh script use "sh foo.sh". These are all portable.
For sh, be sure to set the C<alien_msys> property so that it will work on Windows.
lib/Alien/Base/ModuleBuild/API.pod view on Meta::CPAN
=item %X
[version 0.027]
The current Perl interpreter using the Unix style path separator C</>
instead of the native Windows C<\>.
=item %%
A literal C<%>.
view release on metacpan or search on metacpan
lib/Alien/Base.pm view on Meta::CPAN
sub split_flags {
my ($class, $line) = @_;
if( $^O eq 'MSWin32' ) {
$class->split_flags_windows($line);
} else {
# $os eq 'Unix'
$class->split_flags_unix($line);
}
}
sub split_flags_unix {
my ($class, $line) = @_;
shellwords($line);
}
sub split_flags_windows {
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/My/Builder.pm view on Meta::CPAN
my $srcdir = catfile($build_src, $bp->{dirname});
my $prefixdir = rel2abs($build_out);
$self->config_data('build_prefix', $prefixdir); # save it for future Alien::Box2D::ConfigData
# some platform specific stuff
my $makefile = rel2abs('patches/Makefile.unix');
$makefile = rel2abs('patches/Makefile.mingw') if $^O eq 'MSWin32' && $Config{cc} =~ /gcc/;
$makefile = rel2abs('patches/Makefile.nmake') if $^O eq 'MSWin32' && $Config{cc} =~ /cl/;
my $cxxflags = '-O3';
$cxxflags .= " $1" if $Config{cccdlflags} =~ /((-[df]PIC\s+)?-[df]PIC)/i;
# MacOSX related flags
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/author-portability.t',
't/release-check-manifest.t',
't/release-trailing-space.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
lib/Alien/Base.pm view on Meta::CPAN
sub split_flags {
my ($class, $line) = @_;
if( $^O eq 'MSWin32' ) {
$class->split_flags_windows($line);
} else {
# $os eq 'Unix'
$class->split_flags_unix($line);
}
}
sub split_flags_unix {
my ($class, $line) = @_;
shellwords($line);
}
sub split_flags_windows {
view release on metacpan or search on metacpan
lib/Alien.pm view on Meta::CPAN
already installed version of C<Foo::XS> that used it when it was
installed.
=item On Windows (ActiveState, Strawberry Perl)
Many open source libraries use C<autoconf> and other Unix focused tools
that may not be easily available to the native (non-Cygwin) windows
Perl. L<Alien::MSYS> provides just enough of these tools for C<autoconf>
and may be sufficient for some other build tools. Also, L<Alien::Build>
and L<Alien::Base> have hooks to detect C<autoconf> and inject
L<Alien::MSYS> as a requirement on Windows when it is needed.