Result:
found more than 625 distributions - search limited to the first 2001 files matching your query
( run in 0.726 )
App-MBUtiny
view release on metacpan or search on metacpan
lib/App/MBUtiny/Collector/Server.pm view on Meta::CPAN
$self->{_time} = sprintf("%.4f", $self->tms(1))*1;
return HTTP_INTERNAL_SERVER_ERROR unless $self->status;
# Prepare input data
my $meth = $self->info->{method} || "GET";
if ($meth =~ /POST|PUT|PATCH/) {
my $data = $q->param($meth."DATA") // $q->param('XForms:Model');
Encode::_utf8_on($data);
if (value($self->info("attrs"), "deserialize")) {
my $serializer = $self->serializer;
$self->data($serializer->deserialize($data));
App-MFILE-WWW
view release on metacpan or search on metacpan
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
use App::CELL qw( $CELL $log $meta $site );
use Data::Dumper;
use Encode qw( decode_utf8 encode_utf8 );
use File::Temp qw( tempfile );
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use LWP::UserAgent;
use Params::Validate qw(:all);
use Try::Tiny;
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
# process arguments
my $ua = $self->ua();
die "Bad user agent object" unless ref( $ua ) eq 'LWP::UserAgent';
my %ARGS = validate( @_, {
server => { type => SCALAR, default => 'http://localhost:5000' },
method => { type => SCALAR, default => 'GET', regex => qr/^(GET|POST|PUT|DELETE)$/ },
nick => { type => SCALAR, optional => 1 },
password => { type => SCALAR, default => '' },
path => { type => SCALAR, default => '/' },
req_body => { type => HASHREF, optional => 1 },
} );
lib/App/MFILE/WWW/Resource.pm view on Meta::CPAN
if ( $ARGS{'nick'} ) {
$r->authorization_basic( $ARGS{'nick'}, $ARGS{'password'} );
}
if ( $ARGS{'method'} =~ m/^(POST|PUT)$/ ) {
$r->header( 'Content-Type' => 'application/json' );
if ( my $body = $ARGS{'req_body'} ) {
my $tmpvar = JSON->new->utf8(0)->encode( $body );
$r->content( encode_utf8( $tmpvar ) );
}
App-MFILE
view release on metacpan or search on metacpan
lib/App/MFILE/HTTP.pm view on Meta::CPAN
use App::CELL qw( $CELL $log $site $meta );
use Data::Dumper;
use Encode qw( encode_utf8 );
use Exporter qw( import );
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use LWP::UserAgent;
use Params::Validate qw( :all );
use Try::Tiny;
lib/App/MFILE/HTTP.pm view on Meta::CPAN
# process arguments
my $ua = shift;
die "Bad user agent object" unless ref( $ua ) eq 'LWP::UserAgent';
my %ARGS = validate( @_, {
server => { type => SCALAR, default => 'http://localhost:5000' },
method => { type => SCALAR, default => 'GET', regex => qr/^(GET|POST|PUT|DELETE)$/ },
nick => { type => SCALAR, optional => 1 },
password => { type => SCALAR, default => '' },
path => { type => SCALAR, default => '/' },
req_body => { type => HASHREF, optional => 1 },
} );
lib/App/MFILE/HTTP.pm view on Meta::CPAN
if ( $ARGS{'nick'} ) {
$r->authorization_basic( $ARGS{'nick'}, $ARGS{'password'} );
}
if ( $ARGS{'method'} =~ m/^(POST|PUT)$/ ) {
$r->header( 'Content-Type' => 'application/json' );
if ( my $body = $ARGS{'req_body'} ) {
my $tmpvar = JSON->new->utf8(0)->encode( $body );
$r->content( encode_utf8( $tmpvar ) );
}
App-MHFS
view release on metacpan or search on metacpan
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
$self->{'httpproto'} = $4;
my $rid = int(clock_gettime(CLOCK_MONOTONIC) * rand()); # insecure uid
$self->{'outheaders'}{'X-MHFS-REQUEST-ID'} = sprintf("%X", $rid);
say "X-MHFS-CONN-ID: " . $self->{'outheaders'}{'X-MHFS-CONN-ID'} . " X-MHFS-REQUEST-ID: " . $self->{'outheaders'}{'X-MHFS-REQUEST-ID'};
say "RECV: $rl";
if(($self->{'method'} ne 'GET') && ($self->{'method'} ne 'HEAD') && ($self->{'method'} ne 'PUT')) {
say "X-MHFS-CONN-ID: " . $self->{'outheaders'}{'X-MHFS-CONN-ID'} . 'Invalid method: ' . $self->{'method'}. ', closing conn';
return undef;
}
my ($path, $querystring) = ($self->{'uri'} =~ /^([^\?]+)(?:\?)?(.*)$/g);
say("raw path: $path\nraw querystring: $querystring");
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
}
}
$self->Send404;
}
sub PUTBuf_old {
my ($self, $handler) = @_;
if(length($self->{'client'}{'inbuf'}) < $self->{'header'}{'Content-Length'}) {
$self->{'client'}->SetEvents(POLLIN | MHFS::EventLoop::Poll->ALWAYSMASK );
}
my $sdata;
$self->{'on_read_ready'} = sub {
my $contentlength = $self->{'header'}{'Content-Length'};
$sdata .= $self->{'client'}{'inbuf'};
my $dlength = length($sdata);
if($dlength >= $contentlength) {
say 'PUTBuf datalength ' . $dlength;
my $data;
if($dlength > $contentlength) {
$data = substr($sdata, 0, $contentlength);
$self->{'client'}{'inbuf'} = substr($sdata, $contentlength);
$dlength = length($data)
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
return 1;
};
$self->{'on_read_ready'}->();
}
sub PUTBuf {
my ($self, $handler) = @_;
if($self->{'header'}{'Content-Length'} > 20000000) {
say "PUTBuf too big";
$self->{'client'}->SetEvents(POLLIN | MHFS::EventLoop::Poll->ALWAYSMASK );
$self->{'on_read_ready'} = sub { return undef };
return;
}
if(length($self->{'client'}{'inbuf'}) < $self->{'header'}{'Content-Length'}) {
lib/MHFS/HTTP/Server/Client/Request.pm view on Meta::CPAN
}
$self->{'on_read_ready'} = sub {
my $contentlength = $self->{'header'}{'Content-Length'};
my $dlength = length($self->{'client'}{'inbuf'});
if($dlength >= $contentlength) {
say 'PUTBuf datalength ' . $dlength;
my $data;
if($dlength > $contentlength) {
$data = substr($self->{'client'}{'inbuf'}, 0, $contentlength, '');
}
else {
App-MTPUtils
view release on metacpan or search on metacpan
script/mtputils-del-files view on Meta::CPAN
log_level (see --log-level)
naked_res (see --naked-res)
=head1 ENVIRONMENT
=head2 MTPUTILS_DEL_FILES_OPT => str
Specify additional command-line options.
=head1 FILES
App-Magpie
view release on metacpan or search on metacpan
lib/App/Magpie/Action/Old.pm view on Meta::CPAN
sub run {
my ($self) = @_;
my %category;
my $outfile = path( "/tmp/cpan-o.stdout" );
if ( $ENV{MAGPIE_REUSE_CPAN_O_OUTPUT} ) {
$self->log( "re-using cpan -O output from $outfile" );
} else {
my $cmd = "cpan -O >$outfile 2>/tmp/cpan-o.stderr";
$self->log( "running: $cmd" );
system("$cmd") == 0
App-Manager
view release on metacpan or search on metacpan
char *
LIBTRACER_SO()
CODE:
RETVAL = LIBTRACER_SO;
OUTPUT:
RETVAL
char *
LIBDIR()
CODE:
RETVAL = LIBDIR;
OUTPUT:
RETVAL
# damn, POSIX doesn't include S_ISLNK!
void
App-Math-Tutor
view release on metacpan or search on metacpan
t/01-simple.t view on Meta::CPAN
my $keep;
my $format;
BEGIN
{
defined $ENV{KEEP_TEST_OUTPUT} and $keep = $ENV{KEEP_TEST_OUTPUT};
defined $ENV{TEST_OUTPUT_TYPE} and $format = $ENV{TEST_OUTPUT_TYPE};
if ( defined( $ENV{TEST_DIR} ) )
{
$test_dir = $ENV{TEST_DIR};
-d $test_dir or mkpath $test_dir;
$keep = 1;
App-MatrixTool
view release on metacpan or search on metacpan
lib/App/MatrixTool/Command/client/json.pm view on Meta::CPAN
C<matrixtool client login>) then it is automatically added to the query
parameters as well.
An optional second argument, I<DATA>, may be provided. If so, this should
contain a JSON encoding of data to supply with the request, turning it into a
C<PUT> request. If no data is supplied, then a C<GET> request is performed
instead.
The resulting JSON data from the homeserver is parsed and re-printed in a more
human-readable form to standard output. Linefeeds and indentation whitespace
are used to increase readability.
lib/App/MatrixTool/Command/client/json.pm view on Meta::CPAN
=over 4
=item C<--method>, C<-m>
Use a different HTTP method. If not specified, C<GET> or C<PUT> will be
performed, depending on whether the I<DATA> argument was supplied.
=back
=cut
lib/App/MatrixTool/Command/client/json.pm view on Meta::CPAN
{
my $self = shift;
my ( $opts, $pathquery, $data ) = @_;
my $method = "GET";
$method = "PUT" if defined $data;
$method = $opts->{method} if defined $opts->{method};
my %opts;
lib/App/MatrixTool/Command/client/json.pm view on Meta::CPAN
"avatar_url": "mxc://example.com/aBcDeFgHiJ...",
"displayname": "Mr Example",
}
By supplying a second parameter containing JSON-encoded data, we can perform
a C<PUT> request to update the displayname:
$ matrixtool client -u @me:example.com json \
/_matrix/client/r0/profile/@me:example.com/displayname \
'{"displayname":"Mr. Example"}'
{}
App-Midgen
view release on metacpan or search on metacpan
lib/App/Midgen.pm view on Meta::CPAN
use version;
our $VERSION = '0.34';
$VERSION = eval $VERSION; ## no critic
use English qw( -no_match_vars ); # Avoids reg-ex performance penalty
local $OUTPUT_AUTOFLUSH = 1;
use Cwd qw(getcwd);
use Data::Printer {caller_info => 1,};
use File::Find qw(find);
use File::Spec;
App-Milter-Limit
view release on metacpan or search on metacpan
/var/db/milter-limit.
You also need to tell sendmail about the milter. Add something like the
following to your sendmail.mc and generate a new sendmail.cf:
INPUT_MAIL_FILTER(`milter-limit', `S=local:/var/run/milter-limit.sock')
Finally, you need to arrage for the milter to start at boot time. some init
scripts are available in the contrib directory.
COPYRIGHT AND LICENSE
App-Mimosa
view release on metacpan or search on metacpan
root/js/ext-3.3.1/ext-all.js view on Meta::CPAN
* Ext JS Library 3.3.1
* Copyright(c) 2006-2010 Sencha Inc.
* licensing@sencha.com
* http://www.sencha.com/license
*/
(function(){var h=Ext.util,k=Ext.each,g=true,i=false;h.Observable=function(){var l=this,m=l.events;if(l.listeners){l.on(l.listeners);delete l.listeners}l.events=m||{}};h.Observable.prototype={filterOptRe:/^(?:scope|delay|buffer|single)$/,fireEvent:fu...
/* SWFObject v2.2 <http://code.google.com/p/swfobject/>
is released under the MIT License <http://www.opensource.org/licenses/mit-license.php>
*/
var swfobject=function(){var F="undefined",t="object",U="Shockwave Flash",Y="ShockwaveFlash.ShockwaveFlash",s="application/x-shockwave-flash",T="SWFObjectExprInst",z="onreadystatechange",Q=window,l=document,v=navigator,V=false,W=[i],q=[],P=[],K=[],n,...
App-Module-Template
view release on metacpan or search on metacpan
lib/App/Module/Template.pm view on Meta::CPAN
my $config_file = _get_config_path($opt{c}, $template_dir);
my $cfg = _get_config($config_file);
# Setting this lets TT2 handle creating the destination files/directories
$cfg->{template_toolkit}{OUTPUT_PATH} = $dist_dir;
my $tt2 = Template->new( $cfg->{template_toolkit} );
# don't need this in the $tmpl_vars
delete $cfg->{template_toolkit};
App-ModuleBuildTiny
view release on metacpan or search on metacpan
script/mbtiny view on Meta::CPAN
=head2 version
This prints the version of C<mbtiny>.
=head1 INPUTS
The metadata for the distribution is gathered from various sources.
=over 4
App-MojoSlides
view release on metacpan or search on metacpan
lib/App/MojoSlides/files/public/mousetrap.min.js view on Meta::CPAN
l[a][g],!(!d&&k.seq&&n[k.seq]!=k.level||h!=k.action||("keypress"!=h||c.metaKey||c.ctrlKey)&&b.sort().join(",")!==k.modifiers.sort().join(","))){var m=d&&k.seq==d&&k.level==v;(!d&&k.combo==e||m)&&l[a].splice(g,1);f.push(k)}return f}function K(a){var b...
b.returnValue=!1,b.cancelBubble=!0)}function y(a){"number"!==typeof a.which&&(a.which=a.keyCode);var b=A(a);b&&("keyup"==a.type&&z===b?z=!1:m.handleKey(b,K(a),a))}function w(a){return"shift"==a||"ctrl"==a||"alt"==a||"meta"==a}function L(a,b,c,d){func...
d,e,f=[];c="+"===a?["+"]:a.split("+");for(e=0;e<c.length;++e)d=c[e],G[d]&&(d=G[d]),b&&"keypress"!=b&&H[d]&&(d=H[d],f.push("shift")),w(d)&&f.push(d);c=d;e=b;if(!e){if(!p){p={};for(var g in h)95<g&&112>g||h.hasOwnProperty(g)&&(p[h[g]]=g)}e=p[c]?"keydow...
d,a,e),l[c.key][d?"unshift":"push"]({callback:b,modifiers:c.modifiers,action:c.action,seq:d,level:e,combo:a}))}var h={8:"backspace",9:"tab",13:"enter",16:"shift",17:"ctrl",18:"alt",20:"capslock",27:"esc",32:"space",33:"pageup",34:"pagedown",35:"end",...
"@":"2","#":"3",$:"4","%":"5","^":"6","&":"7","*":"8","(":"9",")":"0",_:"-","+":"=",":":";",'"':"'","<":",",">":".","?":"/","|":"\\"},G={option:"alt",command:"meta","return":"enter",escape:"esc",mod:/Mac|iPod|iPhone|iPad/.test(navigator.platform)?"me...
unbind:function(a,b){return m.bind(a,function(){},b)},trigger:function(a,b){if(q[a+":"+b])q[a+":"+b]({},a);return this},reset:function(){l={};q={};return this},stopCallback:function(a,b){return-1<(" "+b.className+" ").indexOf(" mousetrap ")?!1:"INPUT...
b[d[e].seq]=1,x(d[e].callback,c,d[e].combo)):g||x(d[e].callback,c,d[e].combo);d="keypress"==c.type&&I;c.type!=u||w(a)||d||t(b);I=g&&"keydown"==c.type}};J.Mousetrap=m;"function"===typeof define&&define.amd&&define(m)})(window,document);
App-MonM
view release on metacpan or search on metacpan
lib/App/MonM/Checkit/HTTP.pm view on Meta::CPAN
=item B<Content>
Content "Content for HTTP request"
Specifies POST/PUT/PATCH request content
Example:
Set Content-Type text/plain
Content "Content for POST HTTP request"
lib/App/MonM/Checkit/HTTP.pm view on Meta::CPAN
=item B<Method>
Method GET
Defines the HTTP method: GET, POST, PUT, HEAD, PATCH, DELETE, and etc.
Default: GET
=item B<Proxy>
lib/App/MonM/Checkit/HTTP.pm view on Meta::CPAN
# Proxy
$ua->proxy(['http', 'https'], $proxy) if $proxy;
# Prepare request data
my $request = HTTP::Request->new(uc($method) => $uri);
if ($method =~ /PUT|POST|PATCH/) {
Encode::_utf8_on($content);
$request->header('Content-Length' => length(Encode::encode("utf8", $content)));
$request->content(Encode::encode("utf8", $content));
}
App-Mowyw
view release on metacpan or search on metacpan
.synTodo { color: #0000FF ; background: #FFFF00 none }
(taken from Text::VimColor)
VERBATIM OUTPUT
If your website includes string like [% or %] etc., you can use the
verbatim-construct to prevent it from parsing:
[% verbatim foobarbaz %]
App-MtAws
view release on metacpan or search on metacpan
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
($self->{part_final_hash} = $part_final_hash)||confess;
$self->_calc_data_hash;
$self->{url} = "/$self->{account_id}/vaults/$self->{vault}/multipart-uploads/$uploadid";
$self->{method} = 'PUT';
$self->add_header('Content-Type', 'application/octet-stream');
$self->add_header('Content-Length', length(${$self->{dataref}}));
$self->add_header('x-amz-content-sha256', $self->{data_sha256});
$self->add_header('x-amz-sha256-tree-hash', $self->{part_final_hash});
my ($start, $end) = ($offset, $offset+length(${$self->{dataref}})-1 );
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
my ($self, $vault_name) = @_;
confess unless defined($vault_name);
$self->{url} = "/$self->{account_id}/vaults/$vault_name";
$self->{method} = 'PUT';
my $resp = $self->perform_lwp();
return $resp ? $resp->header('x-amzn-RequestId') : undef;
}
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
} else {
$ua->ssl_opts( verify_hostname => 1, SSL_verify_mode=>1);
}
}
$url .= "?$self->{params_s}" if $self->{params_s};
if ($self->{method} eq 'PUT') {
$req = HTTP::Request->new(PUT => $url, undef, $self->{dataref});
} elsif ($self->{method} eq 'POST') {
if ($self->{dataref}) {
$req = HTTP::Request->new(POST => $url, [Content_Type => 'form-data'], ${$self->{dataref}});
} else {
$req = HTTP::Request->new(POST => $url );
App-Multigit
view release on metacpan or search on metacpan
lib/App/Multigit.pm view on Meta::CPAN
Defaults to true; this should be used by scripts to determine whether to bother
mentioning repositories that gave no output at all for the given task. If you
use C<App::Multigit::Repo::report>, this will be honoured by default.
Controlled by the C<MG_REPORT_ON_NO_OUTPUT> environment variable.
=head3 ignore_stdout
=head3 ignore_stderr
lib/App/Multigit.pm view on Meta::CPAN
Controlled by the C<MG_SKIP_READONLY> environment variable.
=cut
our %BEHAVIOUR = (
report_on_no_output => $ENV{MG_REPORT_ON_NO_OUTPUT} // 1,
ignore_stdout => !!$ENV{MG_IGNORE_STDOUT},
ignore_stderr => !!$ENV{MG_IGNORE_STDERR},
concurrent => $ENV{MG_CONCURRENT_PROCESSES} // 20,
skip_readonly => !!$ENV{MG_SKIP_READONLY},
output_only => !!$ENV{MG_OUTPUT_ONLY},
);
=head2 @SELECTED_REPOS
If this is not empty, it should contain paths to repositories. Relative paths
App-Music-ChordPro
view release on metacpan or search on metacpan
lib/ChordPro.pm view on Meta::CPAN
# Shortcut a2crd conversion.
if ( $options->{a2crd} ) {
require ChordPro::A2Crd;
$res = ChordPro::A2Crd::a2crd();
push( @$res, '' );
goto WRITE_OUTPUT;
}
# Check for metadata in filelist. Actually, this works on the
# command line as well, but don't tell anybody.
progress( phase => "Parsing", index => 0,
lib/ChordPro.pm view on Meta::CPAN
# Call backend to produce output.
$res = $pkg->generate_songbook($s);
return $res if $options->{output} eq '*';
WRITE_OUTPUT:
# Some backends write output themselves, others return an
# array of lines to be written.
if ( $res && @$res > 0 ) {
if ( $of && $of ne "-" ) {
my $fd = fs_open( $of, '>:utf8' );
App-Music-PlayTab
view release on metacpan or search on metacpan
lib/App/Music/PlayTab.pm view on Meta::CPAN
app_options();
binmode( STDERR, ':utf8' );
print STDOUT ("ok 1\n") if $test;
if ( defined $output ) {
open(OUTPUT, ">$output") or print STDOUT ("not ") if $test;
print STDOUT ("ok 2\n") if $test;
}
else {
die("Test mode requires -output option to be set\n") if $test;
*OUTPUT = *STDOUT;
}
# Options post-processing.
$trace |= ($debug || $test);
$xpose = $gxpose;
lib/App/Music/PlayTab.pm view on Meta::CPAN
print STDOUT ("ok 4\n") if $test;
print STDOUT ("ok 5\n") if $test;
close OUTPUT if defined $output;
exit 0 unless $test;
}
sub push_entry {
return unless $entry && keys(%$entry);
lib/App/Music/PlayTab.pm view on Meta::CPAN
Input file(s).
=back
=head1 INPUT SYNTAX
The input for playtab is plain ASCII. It contains the chords, the
division in bars, with optional annotations.
An example:
lib/App/Music/PlayTab.pm view on Meta::CPAN
Oh, I almost forgot: it can print guitar chord diagrams as well.
See "bluebossa", "sophisticatedlady" and some others.
Have fun, and let me know your ideas!
=head1 INPUT SYNTAX
Notes: C, D, E, F, G, A, B.
Raised with '#' or suffix 'is', e.g. A#, Ais.
Lowered with 'b' or suffix 's' or 'es', e.g. Bes, As, Eb.
lib/App/Music/PlayTab.pm view on Meta::CPAN
: Repeats previous chord
% Repeat
/ Powerchord constructor [D/G D/E-]
--------------------------------------------------------------
=head1 LILYPOND INPUT SYNTAX
Notes: c, d, e, f, g, a, b.
Raised with suffix 'is', e.g. ais.
Lowered with suffix 'es', e.g. bes, ees.
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
( run in 0.726 second using v1.01-cache-2.11-cpan-39bf76dae61 )