view release on metacpan or search on metacpan
lib/ChordPro/Config/Properties.pm view on Meta::CPAN
=over
=item *
A tilde C<~> in what looks like a file name will be replaced by the
value of C<${HOME}>.
=item *
If the value contains C<${I<name>}>, I<name> is first looked up in the
view release on metacpan or search on metacpan
lib/App/Music/PlayTab.pm view on Meta::CPAN
| as . | f7 . | bes7 . | bes7 . |
| c7 . | c7 . | f- . | c7#9 . |
| f- . | c7 . | f- . | aso . |
| as f7 | bes-7 es7 | as - | bes-7 es7 |
To see how this looks, see http://johan.vromans.org/software/sw_playtab.html .
You can modify the width of the bars with a '!w' control. Standard
width of a beat is 30. '!w +5' increases the width to 35. '!w 25' sets
it to 25. You get the idea. You can also change the height with '!h'
(default is 15) and margin with '!m' (default width is 40). You can
view release on metacpan or search on metacpan
lib/App/MusicExpo.pm view on Meta::CPAN
=head1 DESCRIPTION
App::MusicExpo creates a HTML table from a list of songs.
The default template looks like:
| Title | Artist | Album | Genre | Track | Year | Type |
|---------+---------+-----------------+---------+-------+------+------|
| Cellule | Silence | L'autre endroit | Electro | 01/09 | 2005 | FLAC |
view release on metacpan or search on metacpan
bin/atonal-util view on Meta::CPAN
use Music::Tempo qw/bpm_to_ms ms_to_bpm/;
use Music::Tension::Cope ();
# untested with --tension
#use Music::Tension::PlompLevelt ();
use Parse::Range qw/parse_range/;
use Scalar::Util qw/looks_like_number/;
my %modes = (
adjacent_interval_content => \&adjacent_interval_content,
bark => \&bark,
basic => \&basic,
bin/atonal-util view on Meta::CPAN
if ( @freqs < 2 ) {
die "Usage: $0 combos [--pitches [--relative=note]] f1 f2 [f3...]\n";
}
# turn on pitch mode if first note looks more a note than a number
if ( $Flag_Pitches or $freqs[0] =~ m/[a-g]/ ) {
@freqs = map $p2f->($_), $Lyu->notes2pitches(@freqs);
}
for my $i ( 1 .. $#freqs ) {
bin/atonal-util view on Meta::CPAN
# Not the default, so if things persist or chain due to some rewrite,
# would need to save the old or create a new object or whatever
$Lyu->keep_state(1);
$Lyu->mode('absolute');
for my $freq ( grep looks_like_number $_, map { split ' ', $_ } @args ) {
die "frequency '$freq' out of range" if $freq < 8 or $freq > 4200;
my $p = $scala->freq2pitch($freq);
# how off is the frequency from the given scale and concertfreq?
bin/atonal-util view on Meta::CPAN
my (@args) = @_;
GetOptionsFromArray( \@args, @Std_Opts, 'factor|n=s' => \my $factor, )
or print_help();
$Lyu->chrome('flats') if $Flag_Flat;
$factor //= 1;
die "factor must be number\n" unless looks_like_number $factor;
emit_pitch_set( $Atu->multiply( $factor, args2pitchset(@args) ) );
}
sub normal_form {
my (@args) = @_;
bin/atonal-util view on Meta::CPAN
'ms!' => \my $in_ms,
'tempo=i' => \$tempo,
'fraction=s' => \$fraction,
) or print_help();
if ( !looks_like_number($fraction) ) {
if ( $fraction =~ m#^(\d+)/(\d+)$# ) {
$fraction = $1 / $2;
} else {
die "unknown fraction: $fraction (expect 2/3 or such)\n";
}
bin/atonal-util view on Meta::CPAN
# If pitch must int() it, otherwise feed to lilypond for conversion so
# do not first need to call ly2pitch on the input.
my @ret;
for my $pitch (
map { looks_like_number $_ ? int $_ : $Lyu->notes2pitches($_) }
map { split ' ', $_ } @args
) {
die "pitch '$pitch' out of range\n" if $pitch < 0 or $pitch > 108;
if ($emit) {
printf "%d\t%.2f\n", $pitch, $p2f->($pitch);
bin/atonal-util view on Meta::CPAN
my (@args) = @_;
GetOptionsFromArray( \@args, @Std_Opts, 'rotate|n=s' => \my $r, )
or print_help();
$Lyu->chrome('flats') if $Flag_Flat;
$r //= 0;
die "rotate must be number\n" unless looks_like_number $r;
emit_pitch_set( $Atu->rotate( $r, args2pitchset(@args) ),
rs => $Flag_Record_Sep );
}
sub set2beats {
bin/atonal-util view on Meta::CPAN
'beats=i' => \$beats,
'tempo=i' => \$tempo,
) or print_help();
for my $durms (@args) {
die "argument $durms not a number\n" if !looks_like_number $durms;
my $dur = 1 / ( ms_to_bpm( $durms, $beats ) / $tempo );
# Cheat with lilypond multiplier syntax; breaking things down into c4~ c16.
# would of course be more work.
$dur = 100 * sprintf "%.2f", $dur;
print "c$beats*$dur/100\n";
bin/atonal-util view on Meta::CPAN
$t //= 0;
my $pset = args2pitchset(@args);
# if a number, transpose by that; if note, transpose to that note
if ( !looks_like_number($t) ) {
$t = $Lyu->notes2pitches($t) - $pset->[0];
}
emit_pitch_set( $Atu->transpose( $t, $pset ), rs => $Flag_Record_Sep );
}
bin/atonal-util view on Meta::CPAN
$axis = defined $axis ? $Lyu->notes2pitches($axis) : 0;
# if a number, transpose by that; if note, transpose to that note
$t //= 0;
if ( !looks_like_number($t) ) {
$t = $Lyu->notes2pitches($t) - $pset->[0];
}
emit_pitch_set( $Atu->transpose_invert( $t, $axis, $pset ),
rs => $Flag_Record_Sep );
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
public/javascripts/ace/worker-coffee.js view on Meta::CPAN
});
define("ace/mode/coffee/coffee",[], function(require, exports, module) {
function define(f) { module.exports = f() }; define.amd = {};
var _typeof="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e},_get=function e(a,t,o){null===a&&(a=...
});
define("ace/mode/coffee_worker",[], function(require, exports, module) {
"use strict";
view release on metacpan or search on metacpan
lib/App/NDTools/NDProc/Module/Insert.pm view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use parent 'App::NDTools::NDProc::Module';
use Log::Log4Cli;
use Scalar::Util qw(looks_like_number);
use Struct::Path 0.80 qw(path);
use App::NDTools::Util qw(chomp_evaled_error);
use App::NDTools::Slurp qw(s_decode);
lib/App/NDTools/NDProc/Module/Insert.pm view on Meta::CPAN
},
'file|f=s' => \$self->{OPTS}->{file},
'file-fmt=s' => \$self->{OPTS}->{'file-fmt'},
'null|undef' => sub { $self->{OPTS}->{value} = undef },
'number=s' => sub {
if (looks_like_number($_[1])) {
$self->{OPTS}->{value} = 0 + $_[1];
} else {
$self->{ARG_ERROR} = "Unsuitable value for --number";
die "!FINISH";
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/App/Nag.pm view on Meta::CPAN
version 0.002
=head1 DESCRIPTION
C<App::Nag> does some heavier argument validation after the initial validation
performed by the initial script. If all looks good, it sets a daemon process
going that will wait the appointed time and then pop up a notification.
This module is written only to serve C<nag>. Use outside of this application at your
own risk.
view release on metacpan or search on metacpan
lib/App/Netdisco/Util/Snapshot.pm view on Meta::CPAN
if ($lines[0] !~ m/^.\d/) {
warning 'snapshot file rejected - has translated names/values instead of numeric';
return {};
}
#Â parse the snmpwalk output which looks like
# .1.0.8802.1.1.2.1.1.1.0 = INTEGER: 30
foreach my $line (@lines) {
my ($oid, $type, $value) = $line =~ m/^(\S+)\s+=\s+(?:([^:]+):\s+)?(.+)$/;
next unless $oid and $value;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
1.006 2016-05-24 02:55:20Z
- fix failing tests with other locales, environment settings
1.005 2016-05-20 02:39:52Z
- mark App::Nopaste::Service::Codepeek as deprecated in metadata
- the Gist command also looks in ~/.github for credentials
- many additional tests; thanks David J. Shultz!
1.004 2015-03-05 05:18:44Z
- fix the Gist plugin to work with github's stricter validation
(PR #11, Tatsuhiko Miyagawa)
view release on metacpan or search on metacpan
bin/nostray view on Meta::CPAN
}
if (typeof String.prototype.name !== 'function') {
String.prototype.name = function () {
// If the string looks like an identifier, then we can return it as is.
// If the string contains no control characters, no quote characters, and no
// backslash characters, then we can simply slap some quotes around it.
// Otherwise we must also replace the offending characters with safe
// sequences.
bin/nostray view on Meta::CPAN
return t;
}
// Produce the next token. It looks for programming errors.
function advance(id, t) {
switch (token.id) {
case '(number)':
if (nexttoken.id === '.') {
bin/nostray view on Meta::CPAN
if (!nexttoken.labelled) {
warning("Label '{a}' on {b} statement.",
nexttoken, t.value, nexttoken.value);
}
if (jx.test(t.value + ':')) {
warning("Label '{a}' looks like a javascript url.",
t, t.value);
}
nexttoken.label = t.value;
t = nexttoken;
}
view release on metacpan or search on metacpan
lib/App/Office/CMS.pm view on Meta::CPAN
Note: The '-Ilib' means 2 things:
=over 4
=item o Perl looks in the current directory structure for the modules
That is, Perl does not use the installed version of the code, if any.
=item o The code looks in the current directory structure for .htoffice.cms.conf
That is, it does not use the installed version of this file, if any.
=back
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Donations.pm view on Meta::CPAN
Note: The '-Ilib' means 2 things:
=over 4
=item Perl looks in the current directory structure for the modules
That is, Perl does not use the installed version of the code, if any.
=item The code looks in the current directory structure for .htoffice.contacts.conf
That is, it does not use the installed version of this file, if any.
=back
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/App/Oozie/Run.pm view on Meta::CPAN
# try to predict the value of such things?
# examples:
# ${coord:formatTime(coord:nominalTime(), 'yyyy-MM-dd')}
# ${coord:formatTime(coord:nominalTime(), 'HH')}
#
my $looks_like_coord_conf = qr< [$][{]coord[:] >xms;
my %missing;
my $collector = sub {
my($h, $key) = @_;
return if $key ne 'property';
my $slot = $h->{ $key };
lib/App/Oozie/Run.pm view on Meta::CPAN
#
foreach my $name ( keys %{ $slot } ) {
if ( ! is_hashref $slot->{ $name } ) {
if ( exists $slot->{name}
&& exists $slot->{value}
&& $slot->{value} =~ $looks_like_coord_conf
) {
$missing{ $slot->{name} } = $slot->{value};
}
next;
}
next if exists $slot->{ $name }{ action };
if ( my $val = $slot->{ $name }{ value } ) {
next if $val !~ $looks_like_coord_conf;
$missing{ $name } = $val;
next;
}
}
};
view release on metacpan or search on metacpan
lib/App/Open/Using.pm view on Meta::CPAN
located in their individual documentation.
Because the author is unbelievably lazy, YAML is used for the configuration,
with a fixed data structure.
A basic, one-backend configuration looks something like this:
----
backend:
"BackendName":
- "backend"
lib/App/Open/Using.pm view on Meta::CPAN
cannot be guaranteed. The next section goes into setting up multiple
backends with a guaranteed resolution order.
=head1 MULTIPLE BACKENDS
An order-dependent configuration looks something like this:
---
backend:
- name: "YAML"
args:
view release on metacpan or search on metacpan
lib/App/OverWatch.pm view on Meta::CPAN
to a database using a very simple interface.
=head1 CONFIGURATION
Database configuration is loaded from a config file by load_config() and
looks as follows:
db_type = postgres
user = test
password = test
dsn = DBI:Pg:database=test
view release on metacpan or search on metacpan
lib/App/PAIA/Command/session.pm view on Meta::CPAN
if (defined $self->session->file ) {
my $data = $self->session->load;
say encode_json($data) if $self->app->global_options->verbose;
my $msg = $self->not_authentificated;
die "$msg.\n" if $msg;
say "session looks fine.";
} else {
die "no session file found.\n";
}
if (!$self->auth) {
view release on metacpan or search on metacpan
bin/pause-checkperms view on Meta::CPAN
pause-checkperms --user NEILB
=head1 DESCRIPTION
B<pause-checkperms> looks at the PAUSE permissions for all modules in
CPAN distributions, and lets you know if they're consistent.
It will typically be used to check all your CPAN distributions.
My PAUSE id is C<NEILB>, so I'd run the following:
pause-checkperms --user NEILB
view release on metacpan or search on metacpan
NOTE: C<App::PRT> does not glob (expand wildcards). In the above command,
the shell must expand the C<**/*.pm> and C<*.t>.
Without target files, C<App::PRT> detects source files in your project automatically.
C<App::PRT> looks for a C<cpanfile> to detect the project's root directory.
When executed in a git repository, all files in the repository are used.
prt replace_token foo bar # Refactor the project in current working directory
=head1 LICENSE
view release on metacpan or search on metacpan
lib/App/PTP/Args.pm view on Meta::CPAN
use App::PTP::Util;
use Getopt::Long qw(GetOptionsFromArray :config auto_abbrev no_ignore_case
permute auto_version);
use List::Util;
use Pod::Usage;
use Scalar::Util 'looks_like_number';
our $VERSION = '0.01';
# Name of files or directory to be processed. This can also contain a reference
# to the $stdin_marker variable, to indicate that the standard input needs to be
lib/App/PTP/Args.pm view on Meta::CPAN
)
}
sub is_int {
my ($str) = @_;
return looks_like_number($str) && int($str) == $str;
}
sub validate_cut_spec {
my ($spec) = @_;
my @fields = split /\s*,\s*/, $spec;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";