view release on metacpan or search on metacpan
lib/App/Memcached/CLI/Main.pm view on Meta::CPAN
sub parse_args {
my $class = shift;
my %params; # will be passed to new()
if (defined $ARGV[0] and looks_like_addr($ARGV[0])) {
$params{addr} = shift @ARGV;
}
GetOptions(
\my %opts, 'addr|a=s', 'timeout|t=i',
'debug|d', 'help|h', 'man',
view release on metacpan or search on metacpan
lib/App/Memcached/Tool/CLI.pm view on Meta::CPAN
sub parse_args {
my $class = shift;
my %params; # will be passed to new()
if (defined $ARGV[0] and looks_like_addr($ARGV[0])) {
$params{addr} = shift @ARGV;
}
if (defined $ARGV[0] and first { $_ eq $ARGV[0] } MODES()) {
$params{mode} = shift @ARGV;
}
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
t/025_sequence_api.t view on Meta::CPAN
my $r = request $url;
is($r->code, 200, "200 GET $url" );
ok($r->content !~ m/Bio::BLAST::Database::Seq/);
like($r->content, qr/^>LE_HBa0001A15_T7_30 Chromat_file:Le-HBa001_A15-T7\.ab1 SGN_GSS_ID:30 \(vector and quality trimmed\)/, 'got the correct desc line back');
like($r->content, qr/$seq/, 'looks like the same FASTA');
is(length($r->content),596, 'got non-zero content length') or diag $r->content;
}
{
basic_test('/api/sequence/id/1/LE_HBa0001A15_T7_30.txt');
view release on metacpan or search on metacpan
lib/App/MiseEnPlace.pm view on Meta::CPAN
sub _load_configs {
my( $self ) = shift;
unless ( -e $self->config_file() ) {
say "Whoops, it looks like you don't have a " . $self->config_file() . " file yet.";
say "Please review the documentation, create one, and try again.";
exit;
}
my $base_config = _load_config_file( $self->config_file() );
view release on metacpan or search on metacpan
<li><a href="bar.html" >bar</a></li>
<li><a href="baz.html" >baz</a></li>
</ul>
</div>
Each menu item looks like this: [% item label1 some_text %]. If it is called as
[% menu label1 %] it will produce some_text, and all double curly brackets {{ }}
are simply stripped, but the text between them remains.
If it is called with a different name, say [% menu label2 %] the curly brackets
and the text between them are stripped.
view release on metacpan or search on metacpan
lib/App/MtAws/Command/DownloadInventory.pm view on Meta::CPAN
my ($R) = fork_engine->{parent_worker}->process_task($ft, undef);
my $attachmentref = $R->{inventory_raw_ref};
my $inventory_type = $R->{inventory_type};
# here we can have response from both JobList or Inventory output..
# JobList looks like 'response' => '{"JobList":[],"Marker":null}'
# Inventory retriebal has key 'ArchiveList'
# TODO: implement it more clear way on level of Job/Tasks object
croak if -s binaryfilename $options->{'new-journal'}; # TODO: fix race condition between this and opening file
if ($R && $attachmentref) { # $attachmentref can be SCALAR REF or can be undef
$j->open_for_write();
view release on metacpan or search on metacpan
How to gather:
Look at P9Y::ProcessTable
Yah, this looks good:
#!/usr/local/toolsx/bin/perl
use Modern::Perl;
use Data::Dumper;
use P9Y::ProcessTable;
view release on metacpan or search on metacpan
lib/App/MultiModule/API.pm view on Meta::CPAN
package App::MultiModule::API;
$App::MultiModule::API::VERSION = '1.171870';
use strict;use warnings;
use Data::Dumper;
use Sereal::Encoder qw(encode_sereal);
use Sereal::Decoder qw(looks_like_sereal decode_sereal);
=head2 new
Constructor
lib/App/MultiModule/API.pm view on Meta::CPAN
open my $fh, '<', $file_path or die "failed to open $file_path for reading: $!";
while(<$fh>) {
$f .= $_;
}
close $fh or die "failed to close $file_path: $!";
if(looks_like_sereal($f)) {
$ret = decode_sereal $f or die 'returned false';
} else {
$ret = do $file_path or die "failed to deserialize $file_path: $@";
}
};
view release on metacpan or search on metacpan
lib/App/Munner.pm view on Meta::CPAN
To run munner, you will need a YAML format of config file.
The config file name is munner.yml
It looks like this:
---------------------------
base_dir: "... base directory to find the app ..."
apps:
web-frontend:
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
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