Result:
found more than 616 distributions - search limited to the first 2001 files matching your query
( run in 0.467 )
App-MusicTools
view release on metacpan or search on metacpan
The input format is based somewhat upon "Roman Numeral Analysis" and
other musical sources, with some tweaks for Unix command line input
needs. The output is somewhat suitable for input to lilypond, e.g. via
C<vov ... | ly-fu -> though can be adjusted by various options.
=head1 INPUT FORMAT
Supported input must be a roman numeral (I..VII and i..vii), possibly
prefixed with C<#> or C<b> to sharpen or flatten the root pitch,
possibly suffixed with C<+> to augment or C<*> to diminish or C<**> to
double diminish, possibly suffixed with an integer specifying the chord
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/mode-abap.js view on Meta::CPAN
var keywordMapper = this.createKeywordMapper({
"variable.language": "this",
"keyword":
"ADD ALIAS ALIASES ASCENDING ASSERT ASSIGN ASSIGNING AT BACK" +
" CALL CASE CATCH CHECK CLASS CLEAR CLOSE CNT COLLECT COMMIT COMMUNICATION COMPUTE CONCATENATE CONDENSE CONSTANTS CONTINUE CONTROLS CONVERT CREATE CURRENCY" +
" DATA DEFINE DEFINITION DEFERRED DELETE DESCENDING DESCRIBE DETAIL DIVIDE DO" +
" ELSE ELSEIF ENDAT ENDCASE ENDCLASS ENDDO ENDEXEC ENDFORM ENDFUNCTION ENDIF ENDIFEND ENDINTERFACE ENDLOOP ENDMETHOD ENDMODULE ENDON ENDPROVIDE ENDSELECT ENDTRY ENDWHILE EVENT EVENTS EXEC EXIT EXPORT EXPORTING EXTRACT" +
" FETCH FIELDS FORM FORMAT FREE FROM FUNCTION" +
" GENERATE GET" +
" HIDE" +
" IF IMPORT IMPORTING INDEX INFOTYPES INITIALIZATION INTERFACE INTERFACES INPUT INSERT IMPLEMENTATION" +
" LEAVE LIKE LINE LOAD LOCAL LOOP" +
" MESSAGE METHOD METHODS MODIFY MODULE MOVE MULTIPLY" +
" ON OVERLAY OPTIONAL OTHERS" +
" PACK PARAMETERS PERFORM POSITION PROGRAM PROVIDE PUT" +
" RAISE RANGES READ RECEIVE RECEIVING REDEFINITION REFERENCE REFRESH REJECT REPLACE REPORT RESERVE RESTORE RETURN RETURNING ROLLBACK" +
" SCAN SCROLL SEARCH SELECT SET SHIFT SKIP SORT SORTED SPLIT STANDARD STATICS STEP STOP SUBMIT SUBTRACT SUM SUMMARY SUPPRESS" +
" TABLES TIMES TRANSFER TRANSLATE TRY TYPE TYPES" +
" UNASSIGN ULINE UNPACK UPDATE" +
" WHEN WHILE WINDOW WRITE" +
" OCCURS STRUCTURE OBJECT PROPERTY" +
" CASTING APPEND RAISING VALUE COLOR" +
" CHANGING EXCEPTION EXCEPTIONS DEFAULT CHECKBOX COMMENT" +
" ID NUMBER FOR TITLE OUTPUT" +
" WITH EXIT USING" +
" INTO WHERE GROUP BY HAVING ORDER BY SINGLE" +
" APPENDING CORRESPONDING FIELDS OF TABLE" +
" LEFT RIGHT OUTER INNER JOIN AS CLIENT SPECIFIED BYPASSING BUFFER UP TO ROWS CONNECTING" +
" EQ NE LT LE GT GE NOT AND OR XOR IN LIKE BETWEEN",
App-NKC2MARC
view release on metacpan or search on metacpan
NKC2MARC.pm view on Meta::CPAN
use MARC::File::XML;
use MARC::Record;
use Readonly;
use ZOOM;
Readonly::Array our @OUTPUT_FORMATS => qw(usmarc xml);
our $VERSION = 0.03;
$| = 1;
NKC2MARC.pm view on Meta::CPAN
"national bibliography id or ISBN\n";
return 1;
}
my @book_ids = @ARGV;
if (none { $self->{'_opts'}->{'o'} eq $_ } @OUTPUT_FORMATS) {
err 'Bad output format.',
'Output format', $self->{'_opts'}->{'o'},
;
}
App-Netdisco
view release on metacpan or search on metacpan
share/public/javascripts/jquery.dataTables.min.js view on Meta::CPAN
g;f++)if(c[b][f].unique&&(!d[f]||!a.bSortCellsTop))d[f]=c[b][f].cell;return d}function na(a,b,c){u(a,"aoServerParams","serverParams",[b]);if(b&&h.isArray(b)){var d={},e=/(.*?)\[\]$/;h.each(b,function(a,b){var c=b.name.match(e);c?(c=c[0],d[c]||(d[c]=[...
d&&a.oApi._fnLog(a,0,d);a.json=b;u(a,null,"xhr",[a,b]);c(b)},dataType:"json",cache:!1,type:a.sServerMethod,error:function(b,c){var d=a.oApi._fnLog;"parsererror"==c?d(a,0,"Invalid JSON response",1):4===b.readyState&&d(a,0,"Ajax error",7);B(a,!1)}};a.o...
b,c,a):(a.jqXHR=h.ajax(h.extend(i,g)),g.data=f)}function jb(a){return a.bAjaxDataGet?(a.iDraw++,B(a,!0),na(a,sb(a),function(b){tb(a,b)}),!1):!0}function sb(a){var b=a.aoColumns,c=b.length,d=a.oFeatures,e=a.oPreviousSearch,f=a.aoPreSearchCols,g,j=[],i...
columns:[],order:[],start:g,length:i,search:{value:e.sSearch,regex:e.bRegex}};for(g=0;g<c;g++)n=b[g],m=f[g],i="function"==typeof n.mData?"function":n.mData,l.columns.push({data:i,name:n.sName,searchable:n.bSearchable,orderable:n.bSortable,search:{val...
(h.each(o,function(a,b){l.order.push({column:b.col,dir:b.dir});k("iSortCol_"+a,b.col);k("sSortDir_"+a,b.dir)}),k("iSortingCols",o.length));b=p.ext.legacy.ajax;return null===b?a.sAjaxSource?j:l:b?j:l}function tb(a,b){var c=b.sEcho!==l?b.sEcho:b.draw,d...
c.length;d<e;d++)I(a,c[d]);a.aiDisplay=a.aiDisplayMaster.slice();a.bAjaxDataGet=!1;K(a);a._bInitComplete||pa(a,b);a.bAjaxDataGet=!0;B(a,!1)}function oa(a,b){var c=h.isPlainObject(a.ajax)&&a.ajax.dataSrc!==l?a.ajax.dataSrc:a.sAjaxDataProp;return"data"...
{id:!f.f?c+"_filter":null,"class":b.sFilter}).append(h("<label/>").append(j)),f=function(){var b=!this.value?"":this.value;b!=e.sSearch&&(ca(a,{sSearch:b,bRegex:e.bRegex,bSmart:e.bSmart,bCaseInsensitive:e.bCaseInsensitive}),a._iDisplayStart=0,K(a))},...
function(b,c){if(a===c)try{i[0]!==O.activeElement&&i.val(e.sSearch)}catch(d){}});return b[0]}function ca(a,b,c){var d=a.oPreviousSearch,e=a.aoPreSearchCols,f=function(a){d.sSearch=a.sSearch;d.bRegex=a.bRegex;d.bSmart=a.bSmart;d.bCaseInsensitive=a.bCa...
wb(a)}else f(b);a.bFiltered=!0;u(a,null,"search",[a])}function wb(a){for(var b=p.ext.search,c=a.aiDisplay,d,e,f=0,g=b.length;f<g;f++){for(var j=[],i=0,h=c.length;i<h;i++)e=c[i],d=a.aoData[e],b[f](a,d._aFilterData,e,d._aData,i)&&j.push(e);c.length=0;c...
g;0!==p.ext.search.length&&(c=!0);g=xb(a);if(0>=b.length)a.aiDisplay=f.slice();else{if(g||c||e.length>b.length||0!==b.indexOf(e)||a.bSorted)a.aiDisplay=f.slice();b=a.aiDisplay;for(c=b.length-1;0<=c;c--)d.test(a.aoData[b[c]]._sFilterRow)||b.splice(c,1...
a.aoColumns,c,d,e,f,g,j,i,h,m=p.ext.type.search;c=!1;d=0;for(f=a.aoData.length;d<f;d++)if(h=a.aoData[d],!h._aFilterData){j=[];e=0;for(g=b.length;e<g;e++)c=b[e],c.bSearchable?(i=A(a,d,e,"filter"),m[c.sType]&&(i=m[c.sType](i)),null===i&&(i=""),"string"...
App-Oozie
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy/Validate/Spec/Workflow.pm view on Meta::CPAN
of your action nodes at once. Example:
[% PROCESS workflow_global_xml_start %]
<property>
<name>mapreduce.job.queuename</name>
<value> PUT YOUR QUEUE NAME HERE </value>
</property>
[% PROCESS workflow_global_xml_end %]
The [% ... %] tags are probably already in your
workflow.xml.
App-PDF-Link
view release on metacpan or search on metacpan
lib/App/PDF/Link/Icons/MuseScore.pm view on Meta::CPAN
8/lNAGBaZMSEotXw+ubdNYiLgHxhq36FBwhqTHR7qQ3AukVCwbNgAxhePKi9d/MyNVc5jhcm
aw/vPHgSOw+cwLrlPeqyviSW9CQw0B1DoVxFOlvGvlcmcfj1WVdnl3QAN27sxhVbNtnljsG7
i1gIw6g2Zr+iKM/edtttv/FTP0EMYPbDhZ07d35/06ZNqr39OzJFGumJVyqSJHvKzbnc0MGi
zvffSqBV5N/Q6V4V5alUE8vB7aDRW40NQvCOizdquUJR7T2SxrOvcxis1u6hY2kcOpYOXvvB
AUoAdRB41wW92Lb1Ui0khQRMzI2DOgmYuSI/CUC1x2w988wzDwAo2pplXgzgtq4q3nTTTc+M
jo4eyOVyqiMFOotoEWK4di8PUTLQG63dL4pLjWhQLNVjfF7lyt1hgFm1uV9bnM+byt295edN
5fDClRKCd191mdbbc0hd2vEyDk8BL08z5PTgPUfjCrCqm2BtP8Xb33oe1A3rNCpRIefcPKE4
OAweg25U3+vYhnA4vPsTn/jEswBKCNgzIhSgFCxbZ+Uffvjhf3jXu951p1OyMptj6kAn08Rk
fSoZxv+6cR0AjmQy4ZqEvikonxyxI8VfuGEdLKvmPkbDcsCOWczhKgQOByo5SaLYpK7X3rJ2
NcYn0+r0zBzy5SrGZnWUDAtlgyEcooiFJQx2hdGdUNDTk0J/b48Wi0Ub0ikMhAuSQAgBRwjT
GUN1+kApLTzyyCPb7SSXHsSAVgvaQwA6AQy+/vrrf1ssFq9x1gnHwlRLKnlIkrKg8u7T393j
App-PDFUtils
view release on metacpan or search on metacpan
lib/App/PDFUtils.pm view on Meta::CPAN
following command:
% gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/screen -dNOPAUSE -dQUIET -dBATCH -sOutputFile=output.pdf input.pdf
This wrapper offers support for multiple files and automatically naming output
`INPUT.compressed.pdf` by default.
MARKDOWN
args => {
%argspec0_files,
%argspecopt_overwrite,
lib/App/PDFUtils.pm view on Meta::CPAN
following command:
% gs -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dPDFSETTINGS=/screen -dNOPAUSE -dQUIET -dBATCH -sOutputFile=output.pdf input.pdf
This wrapper offers support for multiple files and automatically naming output
C<INPUT.compressed.pdf> by default.
This function is not exported.
Arguments ('*' denotes required arguments):
App-PPI-Dumper
view release on metacpan or search on metacpan
lib/App/PPI/Dumper.pm view on Meta::CPAN
=head2 Methods
=over 4
=item run( OPTIONS, INPUT_FILE )
Parse INPUT_FILE with the given PPI::Dumper options, then print the result to
standard output.
=over 4
=item -m
App-PTP
view release on metacpan or search on metacpan
lib/App/PTP/Cheat_Sheet.pod view on Meta::CPAN
Run with:
ptp file1 file2 ... [--grep re] [--substitute re subst] ... [-o out]
=head2 INPUT FILES
Input files can appear anywhere on the command line and are processed in the
order in which they are given.
=over 8
App-PerlXLock
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
my $junk = "";
my $current = \$junk;
while (<TYPEMAP>) {
next if /^\s*\#/;
my $line_no = $. + 1;
if (/^INPUT\s*$/) {$mode = 'Input'; $current = \$junk; next}
if (/^OUTPUT\s*$/) {$mode = 'Output'; $current = \$junk; next}
if (/^TYPEMAP\s*$/) {$mode = 'Typemap'; $current = \$junk; next}
if ($mode eq 'Typemap') {
chomp;
my $line = $_;
TrimWhitespace($_);
inc/Inline/C.pm view on Meta::CPAN
I32* temp;
CODE:
temp = PL_markstack_ptr++;
RETVAL = $function($arg_name_list);
PL_markstack_ptr = temp;
OUTPUT:
RETVAL
END
}
}
$XS .= "\n";
inc/Inline/C.pm view on Meta::CPAN
#define Inline_Stack_Vars dXSARGS
#define Inline_Stack_Items items
#define Inline_Stack_Item(x) ST(x)
#define Inline_Stack_Reset sp = mark
#define Inline_Stack_Push(x) XPUSHs(x)
#define Inline_Stack_Done PUTBACK
#define Inline_Stack_Return(x) XSRETURN(x)
#define Inline_Stack_Void XSRETURN(0)
#define INLINE_STACK_VARS Inline_Stack_Vars
#define INLINE_STACK_ITEMS Inline_Stack_Items
inc/Inline/C.pm view on Meta::CPAN
sub build_error_message {
my ($o, $cmd, $output_file, $build_noisy) = @_;
my $build_dir = $o->{API}{build_dir};
my $output = '';
if (not $build_noisy and
open(OUTPUT, $output_file)
) {
local $/;
$output = <OUTPUT>;
close OUTPUT;
}
my $errcode = $? >> 8;
$output .= <<END;
App-Phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
C<@extensions> is a list of code references allowing you to handle additional
URLs; return 1 if you handle a URL; each code reference gets called with $stream
(L<Mojo::IOLoop::Stream>), the first line of the request (a Gemini URL, a Gopher
selector, a finger user, a HTTP request line), a hash reference (with the
headers of HTTP requests or the parameters of Titan requests), a buffer of bytes
(e.g. for Titan or HTTP PUT or POST requests), and (sometimes) size.
C<@main_menu> adds more lines to the main menu, possibly links that aren't
simply links to existing pages.
C<@footer> is a list of code references allowing you to add things like licenses
App-Pipeline-Simple
view release on metacpan or search on metacpan
use constant PROGRAMME_NAME => 'spipe';
# ABSTRACT: simple pipeline running interface
our $VERSION = '0.9.1'; # VERSION
# PODNAME: spipe
# raising $OUTPUT_AUTOFLUSH flag to get immediate reporting
$| = 1;
# catch interuptions cleanly
$SIG{'INT'} = 'CLEANUP';
sub CLEANUP { exit(1) }
# variables to catch command line options
our $DEBUG = '';
our $CONFIG = '';
our $DIR = '.';
our $GRAPHVIZ;
our $INPUT = '';
our $ITYPE = '';
#our $CONTINUE; # not implemented yet
our $START = '';
our $STOP = '';
our $VERBOSE;
'v|version' => sub{ print PROGRAMME_NAME, ", version ", $VERSION, "\n";
exit(1); },
'g|debug' => \$DEBUG,
'c|config:s' => \$CONFIG,
'd|directory:s' => \$DIR,
'i|input:s' => \$INPUT,
'it|itype:s' => \$ITYPE,
'graphviz' => \$GRAPHVIZ,
# 'continue' => \$CONTINUE,
'start:s' => \$START,
'stop:s' => \$STOP,
my %args;
$args{config} = $CONFIG if $CONFIG;
$args{dir} = $DIR;
$args{input} = $INPUT if $INPUT;
$args{itype} = $ITYPE if $ITYPE;
$args{start} = $START if $START;
$args{stop} = $STOP if $STOP;
$args{verbose} = $VERBOSE if $VERBOSE;
App-Plog
view release on metacpan or search on metacpan
lib/App/Plog.pm view on Meta::CPAN
{
croak "Error: can't execute '$command' $error_message: $CHILD_ERROR\n" ;
}
# todo: check wantarray
my $text = do { local $INPUT_RECORD_SEPARATOR = undef ; <$out> ; } ;
return $text ;
}
package App::Plog ;
lib/App/Plog.pm view on Meta::CPAN
if (defined $self->{ascii_doc_version})
{
my $pid = open2($reader, $writer, 'asciidoc -o - -s -' );
local $INPUT_RECORD_SEPARATOR = undef ;
print {$writer} $text ; close $writer ;
$entry_html = <$reader>; close $reader ;
}
$entry_html = <<"EOE" ;
App-Pocoirc
view release on metacpan or search on metacpan
lib/App/Pocoirc.pm view on Meta::CPAN
multiple IRC components simultaneously.
If you specify C<local_plugins> at the top level, it will serve as a default
list of local plugins, which can be overridden in a network hash.
=head1 OUTPUT
Here is some example output from the program:
$ pocoirc -f example/config.yml
2011-04-18 18:10:52 Started (pid 20105)
App-Pocosi
view release on metacpan or search on metacpan
lib/App/Pocosi.pm view on Meta::CPAN
=head2 C<exemptions>
An array of netmasks (the kind which L<Net::Netmask|Net::Netmask>'s
constructor accepts).
=head1 OUTPUT
Here is some example output from the program:
$ pocosi -f example/config.yml
2011-05-22 15:30:02 Started (pid 13191)
App-Pod
view release on metacpan or search on metacpan
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
has server => sub { Mojo::UserAgent::Server->new( ioloop => shift->ioloop ) };
has socket_options => sub { {} };
has transactor => sub { Mojo::UserAgent::Transactor->new };
# Common HTTP methods
for my $name ( qw(DELETE GET HEAD OPTIONS PATCH POST PUT) ) {
monkey_patch __PACKAGE__, lc $name, sub {
my ( $self, $cb ) = ( shift, ref $_[-1] eq 'CODE' ? pop : undef );
return $self->start( $self->build_tx( $name, @_ ), $cb );
};
monkey_patch __PACKAGE__, lc( $name ) . '_p', sub {
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
say $ua->get('www.perl.org')->result->dom->at('title')->text;
# Scrape the latest headlines from a news site
say $ua->get('blogs.perl.org')->result->dom->find('h2 > a')->map('text')->join("\n");
# IPv6 PUT request with Content-Type header and content
my $tx = $ua->put('[::1]:3000' => {'Content-Type' => 'text/plain'} => 'Hi!');
# Quick JSON API request with Basic authentication
my $url = Mojo::URL->new('https://example.com/test.json')->userinfo('sri:☃');
my $value = $ua->get($url)->result->json;
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
L<Mojo::UserAgent> inherits all methods from L<Mojo::EventEmitter> and implements the following new ones.
=head2 build_tx
my $tx = $ua->build_tx(GET => 'example.com');
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => 'Content!');
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
my $tx = $ua->build_tx(PUT => 'http://example.com' => {Accept => '*/*'} => json => {a => 'b'});
Generate L<Mojo::Transaction::HTTP> object with L<Mojo::UserAgent::Transactor/"tx">.
# Request with custom cookie
my $tx = $ua->build_tx(GET => 'https://example.com/account');
t/cpan/Mojo2/UserAgent.pm view on Meta::CPAN
my $tx = $ua->put('example.com');
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => 'Content!');
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => form => {a => 'b'});
my $tx = $ua->put('http://example.com' => {Accept => '*/*'} => json => {a => 'b'});
Perform blocking C<PUT> request and return resulting L<Mojo::Transaction::HTTP> object, takes the same arguments as
L<Mojo::UserAgent::Transactor/"tx"> (except for the C<PUT> method, which is implied). You can also append a callback to
perform requests non-blocking.
$ua->put('http://example.com' => json => {a => 'b'} => sub ($ua, $tx) { say $tx->result->body });
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
App-PrereqGrapher
view release on metacpan or search on metacpan
lib/App/PrereqGrapher.pm view on Meta::CPAN
=over 4
=item format
Select the output format, which must be one of: dot, svg, vcg, gml, or html.
See L</"OUTPUT FORMATS"> for more about the supported output formats.
If not specified, the default format is 'dot'.
=item output_file
Specifies the name of the file to write the dependency graph into,
lib/App/PrereqGrapher.pm view on Meta::CPAN
as it will be interpreted as the module of that name. Put an explicit path to stop this:
$grapher->generate_graph('./strict');
=head1 OUTPUT FORMATS
=over 4
=item dot
App-Presto
view release on metacpan or search on metacpan
lib/App/Presto/Client.pm view on Meta::CPAN
my $self = shift;
my $uri = $self->_make_uri(shift);
$self->_rest_client->POST( $uri, shift );
}
sub PUT {
my $self = shift;
my $uri = $self->_make_uri(shift);
$self->_rest_client->PUT( $uri, shift );
}
sub _make_uri {
my $self = shift;
my $local_uri = shift;
App-PrettyRes
view release on metacpan or search on metacpan
bin/pretty-res view on Meta::CPAN
exit 0;
},
'help|h' => sub {
print <<USAGE;
Usage:
pretty-res [OPTIONS] < INPUT
pretty-res --version
pretty-res --help
Examples:
pretty-res -o yaml data.json
Options:
bin/pretty-res view on Meta::CPAN
=head1 SYNOPSIS
Usage:
% pretty-res [OPTIONS] < INPUT
Examples:
% echo '[200, "OK", [1..5]]' | pretty-res -i perl
.----.
App-Prima-REPL
view release on metacpan or search on metacpan
bin/prima-repl view on Meta::CPAN
my $fileName = '.prima.repl.history';
my $historyLength = 200; # total number of lines to save to disk
#use Eval::WithLexicals;
my $DEBUG_OUTPUT = 0;
my $initrc_filename = 'prima-repl.initrc';
# Load PDL if they have it
my ($loaded_PDL, $loaded_Prima_Graphics);
BEGIN {
$loaded_PDL = 0;
bin/prima-repl view on Meta::CPAN
my @lines = split /([\n\r])/, join('', @args);
# Remove useless parts of error messages (which refer to lines in this code)
s/ \(eval \d+\)// for @lines;
# Open the logfile, which I'll print to simultaneously:
open my $logfile, '>>', 'prima-repl.logfile';
IO::OutWindow::print_to_terminal(@lines) if $DEBUG_OUTPUT or $to_stderr;
# Go through each line and carriage return, overwriting where appropriate:
foreach(@lines) {
# If it's a carriage return, set the current column to zero:
if (/\r/) {
$output_column = 0;
App-Prove-Plugin-Elasticsearch
view release on metacpan or search on metacpan
lib/App/ape/update.pm view on Meta::CPAN
=head1 USAGE
ape update [-p ONLY_PLATFORM -v ONLY_VERSION -s STATUS ] -d Defect1 -d Defect2 test1 ... testN
=head2 MANDATORY INPUT
=over 4
=item B<-d [DEFECT]> : at least one must be passed; this will be associated with all the relevant test results indexed. May be passed multiple times.
App-RPi-EnvUI
view release on metacpan or search on metacpan
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
if ($light_on_hours == 24 || $dt_now > $dt_light_on){
if (! $self->aux_state($aux)){
$log->_6("turning light on");
$self->aux_state($aux, ON);
pin_mode($pin, OUTPUT);
write_pin($pin, HIGH);
}
}
if (! $light_on_hours || $dt_now > $dt_light_off){
if ($self->aux_state($aux)){
$log->_6("turning light off");
$self->aux_state($aux, OFF);
pin_mode($pin, OUTPUT);
write_pin($pin, LOW);
$dt_light_on = _set_light_on_time($dt_now, $light_on_at);
$dt_light_off = _set_light_off_time($dt_light_on, $light_on_hours);
}
}
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
if ($pin != -1){
if (read_pin($pin) != $state){
if ($state){
$log->_6("set $pin state to HIGH");
pin_mode($pin, OUTPUT);
write_pin($pin, HIGH);
}
else {
$log->_6("set $pin state to LOW");
pin_mode($pin, OUTPUT);
write_pin($pin, LOW);
}
}
else {
$log->_6("pin $pin state already set properly");
App-Rcsync
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
print $tmpl_fh $template or die $!;
close $config_fh;
close $tmpl_fh;
my $output = <<OUTPUT;
setting1 = value1
setting2 = value2
OUTPUT
my $result = test_app( 'App::Rcsync' => [ '--config', $config_filename, '--stdout', 'test1' ] );
eq_or_diff($result->stdout, $output, 'file parsed properly');
is($result->error, undef, 'threw no exceptions');
App-RecordStream-Bio
view release on metacpan or search on metacpan
t/fromfasta.t view on Meta::CPAN
my $output;
my $tester = App::RecordStream::Test::Tester->new('fromfasta');
diag "basic input";
$input = <<'INPUT';
>foo baz bar
TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG
GGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT
TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG
GGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT
t/fromfasta.t view on Meta::CPAN
SLYNTVAVLYYVHQR
>empty
>bogus
TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG
>empty2
INPUT
$output = <<'OUTPUT';
{"id":"foo","description":"baz bar","name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT\nTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATA...
{"id":"baz","description":null,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"name":"empty","sequence":null}
{"id":"bogus","description":null,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"name":"empty2","sequence":null}
OUTPUT
$tester->test_input([], $input, $output);
diag "--oneline";
$output = <<'OUTPUT';
{"id":"foo","description":"baz bar","name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGGGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACTTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGGGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT"...
{"id":"baz","description":null,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"name":"empty","sequence":null}
{"id":"bogus","description":null,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"name":"empty2","sequence":null}
OUTPUT
$tester->test_input(['--oneline'], $input, $output);
diag "Test multiple input files with --filename-key";
$output = "";
my $output_template = <<'OUTPUT';
{"id":"foo","description":"baz bar","file":__TMPFILE__,"name":"foo baz bar","sequence":"TCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTCCCAACGATGACATAATATATTACT\nTCATTATATAATACAGTAGCAACCCTCTATTGTGTGCATCAAAGG\nGGAAACTACGTGTGTTATCTC...
{"id":"baz","description":null,"file":__TMPFILE__,"name":"baz", "sequence":"SLYNTVAVLYYVHQR"}
{"id":"empty","description":null,"file":__TMPFILE__,"name":"empty","sequence":null}
{"id":"bogus","description":null,"file":__TMPFILE__,"name":"bogus","sequence":"TCATTATATAATACAGTAGC>>CCCTCTATTGTGTGCATCAAAGG"}
{"id":"empty2","description":null,"file":__TMPFILE__,"name":"empty2","sequence":null}
OUTPUT
my $JSON = JSON->new->utf8->allow_nonref;
my @files;
for (1..3) {
App-RecordStream
view release on metacpan or search on metacpan
lib/App/RecordStream/InputStream.pm view on Meta::CPAN
sub get_filename {
my $this = shift;
if ( ! $this->is_done() ) {
return $this->get_file() if ( $this->get_file() );
return 'STRING_INPUT' if ( $this->get_string() );
return 'STREAM_INPUT' if ( $this->get_fh() );
return 'UNKNOWN';
}
elsif ( $this->get_next() ) {
return $this->get_next()->get_filename();
}
App-Regather
view release on metacpan or search on metacpan
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
my ($tt_vars, $pp, $chin, $chou, $chst, $cher);
$self->log->cc( pr => 'debug', fm => "%s called with arguments: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), join(',', sort(keys( %{$self}))), ] ) if $self->{v} > 3;
### PREPARING OUTPUT RELATED VARIABLES
my %out_paths = out_paths( cf => $self->cf, obj => $self->obj,
service => $self->service, rdn => $self->rdn, log => $self->log );
return if ! %out_paths;
my $out_file_pfx //= $out_paths{out_file_pfx};
my $out_file //= $out_paths{out_file};
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
}
$tmp_fn = $tmp_fh->filename;
my $tt = Template->new( TRIM => $self->cf->get(qw(core tt_trim)),
ABSOLUTE => 1,
RELATIVE => 1,
OUTPUT_PATH => $dir,
DEBUG => $self->log->foreground // $self->cf->get(qw(core tt_debug)) );
$self->log->cc( pr => 'err', fm => "%s: Template->new( OUTPUT_PATH => %s ) for service %s error: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), $dir, $self->service, $! ] )
if ! defined $tt;
$tt->process( sprintf("%s/%s",
$self->cf->get(qw(core tt_path)),
lib/App/Regather/Plugin/configfile.pm view on Meta::CPAN
my ($tt_vars, $pp, $chin, $chou, $chst, $cher);
$self->log->cc( pr => 'debug', fm => "%s: %s called with arguments: %s",
ls => [ sprintf("%s:%s",__FILE__,__LINE__), join(',', sort(keys( %{$self}))), ] ) if $self->{v} > 3;
### PREPARING OUTPUT RELATED VARIABLES
my %out_paths = out_paths( cf => $self->cf, obj => $self->obj,
service => $self->service, rdn => $self->rdn, log => $self->log );
return if ! %out_paths;
my $out_file_pfx //= $out_paths{out_file_pfx};
my $out_file //= $out_paths{out_file};
App-Relate-Complex
view release on metacpan or search on metacpan
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
DIDI... is that a MARTIAN name, or, are we in ISRAEL?
Have you been certain a martian name or are you in israel?
Don't worry, nobody really LISTENS to lectures in MOSCOW, either!
.. FRENCH, HISTORY, ADVANCED CALCULUS, COMPUTER PROGRAMMING,
BLACK STUDIES, SOCIOBIOLOGY!.. Are there any QUESTIONS??
Is it because of your inhibitions that you are going through all
this?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I just had a NOSE JOB!!
You mentioned that you would like to have this suntan?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of some problems in your childhood that you are
going through all this?
I wonder if I could ever get started in the credit world?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I wish I was on a Cincinnati street corner holding a clean dog!
How do you reconcile your plans?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Possibly this is related to your life?
CHUBBY CHECKER just had a CHICKEN SANDWICH in downtown DULUTH!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
DIDI... is that a MARTIAN name, or, are we in ISRAEL?
Have you been certain a martian name or are you in israel?
Don't worry, nobody really LISTENS to lectures in MOSCOW, either!
.. FRENCH, HISTORY, ADVANCED CALCULUS, COMPUTER PROGRAMMING,
BLACK STUDIES, SOCIOBIOLOGY!.. Are there any QUESTIONS??
Is it because of your inhibitions that you are going through all
this?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I just had a NOSE JOB!!
You mentioned that you would like to have this suntan?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of some problems in your childhood that you are
going through all this?
I wonder if I could ever get started in the credit world?
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
I wish I was on a Cincinnati street corner holding a clean dog!
How do you reconcile your plans?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Possibly this is related to your life?
CHUBBY CHECKER just had a CHICKEN SANDWICH in downtown DULUTH!
t/dat/tree/subdir/#groovy.txt# view on Meta::CPAN
with your BOOTH!
Is the fact that do I know what it means to be truly one with my
booth the real reason?
I just had a MAJOR CONTRACT DISPUTE with SUZANNE SOMERS!!
Is it because of hangups you have that you are going through all
this?
It's strange, but I'm only TRULY ALIVE when I'm covered in POLKA DOTS
App-RoboBot
view release on metacpan or search on metacpan
share/ubuntu-xenial-16.04-cloudimg-console.log view on Meta::CPAN
[ 0.000000] ACPI: FACP 0x000000007FFF00F0 0000F4 (v04 VBOX VBOXFACP 00000001 ASL 00000061)
[ 0.000000] ACPI: DSDT 0x000000007FFF0470 001BF1 (v01 VBOX VBOXBIOS 00000002 INTL 20100528)
[ 0.000000] ACPI: FACS 0x000000007FFF0200 000040
[ 0.000000] ACPI: FACS 0x000000007FFF0200 000040
[ 0.000000] ACPI: APIC 0x000000007FFF0240 00005C (v02 VBOX VBOXAPIC 00000001 ASL 00000061)
[ 0.000000] ACPI: SSDT 0x000000007FFF02A0 0001CC (v01 VBOX VBOXCPUT 00000002 INTL 20100528)
[ 0.000000] No NUMA configuration found
[ 0.000000] Faking a node at [mem 0x0000000000000000-0x000000007ffeffff]
[ 0.000000] NODE_DATA(0) allocated [mem 0x7ffeb000-0x7ffeffff]
[ 0.000000] Zone ranges:
[ 0.000000] DMA [mem 0x0000000000001000-0x0000000000ffffff]
App-Sandy
view release on metacpan or search on metacpan
lib/App/Sandy/Command/Expression/Add.pm view on Meta::CPAN
Add an expression-matrix to the database. A valid expression-matrix is a
file with two columns. The first column is for the seqid and the second
column is for the raw count. The counts will be treated as weights.
=head2 INPUT
A two-columns whitespace separated file, where the first column is the
transcript id, or the gene id, and the second column is the raw counts.
===> my_custom_expression_matrix.txt
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/Sseg2su.pl view on Meta::CPAN
"
);
# print $cp_dat2DAT[$i] . "\n";
=pod INPUT FILE NAMES
convert seg2 files to su files
=cut
( run in 0.467 second using v1.01-cache-2.11-cpan-4e96b696675 )