package App::OS::Detect::MachineCores;
BEGIN {
$App::OS::Detect::MachineCores::AUTHORITY = 'cpan:DBR';
}
{
$App::OS::Detect::MachineCores::VERSION = '1.1.2';
}
# PODNAME: App::OS::Detect::MachineCores
# ABSTRACT: Detect how many cores your machine has (OS-independently)
use true;
use Carp;
use 5.010;
use strict;
use warnings;
use Moo;
use MooX::Options skip_options => [qw<os cores>];
has os => (
is => 'ro',
required => 1,
default => sub { $^O },
);
has cores => (
is => 'rw',
isa => sub { die "$_[0] is not a reasonable number of cores!" unless $_[0] > 0 and $_[0] < 100 },
lazy => 1,
builder => '_build_cores',
);
option add_one => (
is => 'rw',
isa => sub { die "Invalid bool!" unless $_[0] == 0 or $_[0] == 1 },
default => sub { '0' },
short => 'i',
doc => q{add one to the number of cores (useful in scripts)},
);
sub _build_cores {
if ($_[0]->os =~ 'darwin') { $_ = `sysctl hw.ncpu | awk '{print \$2}'`; chomp; $_ }
elsif ($_[0]->os =~ 'linux') { $_ = `grep processor < /proc/cpuinfo | wc -l`; chomp; $_ }
else { carp "Can't detect the cores for your system/OS, sorry." }
}
around cores => sub {
my ($orig, $self) = (shift, shift);
return $self->$orig() + 1 if $self->add_one;
return $self->$orig();
};
no Moo;
__END__
=pod
=encoding utf-8
=head1 NAME
App::OS::Detect::MachineCores - Detect how many cores your machine has (OS-independently)
=head1 VERSION
version 1.1.2
=head1 SYNOPSIS
On different system, different approaches are needed to detect the number of cores for that machine.
This Module is a wrapper around these different approaches.
=for Pod::Coverage os cores _build_cores add_one
=head1 USAGE
This module will install one executable, C<<< mcores >>>, in your bin.
It is really simple and straightforward:
usage: mcores [-?i] [long options...]
-h --help Prints this usage information.
-i --add_one add one to the number of cores (useful in scripts)
=head1 SUPPORTED SYSTEMS
=over
=item *
darwin (OSX)
=item *
Linux
=back
=head1 MOTIVATION
During development of dotfiles for different platforms I was searching for some way to be able to
transparantly detect the number of available cores and couldn't find one.
Also it is quite handy to be able to increment the number by simply using a little switch C<<< -i >>>.
Example:
export TEST_JOBS=`mcores -i`
=head1 AUTHOR
Daniel B. <dbr@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 by Daniel B..
This is free software, licensed under:
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004
=cut