view release on metacpan or search on metacpan
perfstat_cpu_total_t*
cpu_total()
CODE:
RETVAL = cpu_total_impl();
OUTPUT:
RETVAL
CLEANUP:
safefree(RETVAL);
int
cpu_count()
CODE:
RETVAL = cpu_count_impl();
OUTPUT:
RETVAL
my_cpu_t*
cpu(desired_number = 1, name = "")
if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
{
sv_setpv((SV*)ST(1), name);
SvSETMAGIC(ST(1));
}
OUTPUT:
RETVAL
CLEANUP:
safefree(RETVAL->data);
safefree(RETVAL);
view release on metacpan or search on metacpan
utils/datasetCreator/fromMySQL/dbToTab.pl view on Meta::CPAN
#converts a mysql database to tab seperated readable by LBD
#command is of the form:
#`mysql <DB_NAME> -e "SELECT * FROM N_11 INTO OUTFILE '<OUTPUT_FILE>' FIELDS TERMINATED BY '\t' OPTIONALLY ENCLOSED BY '\"' LINES TERMINATED BY '\n';"`
#
# the following line is an example using a database with cui co-occurrence
# counts from 1980 to 1984 with a window size of 1. The mysql database is
# called 1980_1984_window1, and the output matrix file is called
# 1980_1984_window1_data.txt
view release on metacpan or search on metacpan
h = alpm_initialize(root, dbpath, &err);
if(h == NULL){
croak("ALPM Error: %s", alpm_strerror(err));
}
RETVAL = h;
OUTPUT:
RETVAL
void
DESTROY(self)
ALPM_Handle self;
const char *
version(class)
SV * class
CODE:
RETVAL = alpm_version();
OUTPUT:
RETVAL
const char *
strerror(self)
ALPM_Handle self;
CODE:
RETVAL = alpm_strerror(alpm_errno(self));
OUTPUT:
RETVAL
int
errno(self)
ALPM_Handle self
CODE:
RETVAL = alpm_errno(self);
OUTPUT:
RETVAL
ALPM_Package
find_satisfier(self, depstr, ...)
SV * self
CODE:
i = 2;
STACK2LIST(i, pkgs, p2c_pkg);
RETVAL = alpm_find_satisfier(pkgs, depstr);
alpm_list_free(pkgs);
OUTPUT:
RETVAL
ALPM_Package
find_dbs_satisfier(self, depstr, ...)
ALPM_Handle self
CODE:
i = 2;
STACK2LIST(i, dbs, p2c_db);
RETVAL = alpm_find_dbs_satisfier(self, dbs, depstr);
alpm_list_free(dbs);
OUTPUT:
RETVAL
void
check_conflicts(self, ...)
ALPM_Handle self
if(path == NULL){
RETVAL = &PL_sv_undef;
}else{
RETVAL = sv_2mortal(newSVpv(path, strlen(path)));
}
OUTPUT:
RETVAL
## Why name this register_sync when there is no register_local? Redundant.
ALPM_SyncDB
siglvl = p2c_siglevel(ST(2));
}else{
siglvl = ALPM_SIG_USE_DEFAULT;
}
RETVAL = alpm_register_syncdb(self, name, siglvl);
OUTPUT:
RETVAL
negative_is_error
unregister_all(self)
ALPM_Handle self
CODE:
RETVAL = alpm_unregister_all_syncdbs(self);
OUTPUT:
RETVAL
# Packages created with load_pkgfile must be freed by the caller.
# Hence we use ALPM_PackageFree. NULL pointers are converted
# into undef by the typemap.
int full
ALPM_SigLevel siglevel
CODE:
RETVAL = NULL;
alpm_pkg_load(self, filename, full, siglevel, &RETVAL);
OUTPUT:
RETVAL
int
vercmp(unused, a, b)
SV * unused
const char *a
const char *b
CODE:
RETVAL = alpm_pkg_vercmp(a, b);
OUTPUT:
RETVAL
INCLUDE: xs/Options.xs
INCLUDE: xs/Package.xs
view release on metacpan or search on metacpan
lib/API/Basecamp.pm view on Meta::CPAN
my $results = $basecamp->update(%args);
# or
$basecamp->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/CLI.pm view on Meta::CPAN
verbose => $opt->{verbose} ? 1 : 0,
);
$self->add_auth($REQ);
if ($method =~ m/^(POST|PUT|PATCH|DELETE)$/) {
my $data_file = $opt->{'data-file'};
if (defined $data_file) {
open my $fh, '<', $data_file or die "Could not open '$data_file': $!";
my $data = do { local $/; <$fh> };
close $fh;
view release on metacpan or search on metacpan
lib/API/Client.pm view on Meta::CPAN
=head2 update
update(Any %args) : InstanceOf["Mojo::Transaction"]
The update method issues a C<PUT> request to the API resource represented by
the object.
=over 4
=item update example #1
view release on metacpan or search on metacpan
lib/API/DirectAdmin/Domain.pm view on Meta::CPAN
use base 'API::DirectAdmin::Component';
our $VERSION = 0.05;
# Return domains list
# INPUT
# connection data for USER, not admin
sub list {
my ($self ) = @_;
my $responce = $self->directadmin->query(
view release on metacpan or search on metacpan
examples/edw/sql/sessions.sql view on Meta::CPAN
JOINS {
session WITH clickview IF {
session.last.pageview.timestamp == clickview.timestamp
} AS visitwchannel
}
OUTPUTS_ROW( visitwchannel ) {
visitwchannel.session.first.pageview.uid,
visitwchannel.session.first.pageview.timestamp,
visitwchannel.session.last.pageview.timestamp,
visitwchannel.session.first.pageview.userinfo.idcustomer,
visitwchannel.session.last.pageview.userinfo.idcustomer,
view release on metacpan or search on metacpan
lib/API/Facebook.pm view on Meta::CPAN
my $results = $facebook->update(%args);
# or
$facebook->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/Github.pm view on Meta::CPAN
my $results = $github->update(%args);
# or
$github->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/Name.pm view on Meta::CPAN
my $results = $name->update(%args);
# or
$name->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/ParallelsWPB.pm view on Meta::CPAN
my $url = 'https://' . $self->{server} . '/api/' . $self->{api_version} . '/';
$url .= join( '/', @{ $url_array }) . '/';
my $post_data;
if ( $data->{req_type} eq 'POST' || $data->{req_type} eq 'PUT' ) {
$data->{post_data} ||= {};
unless ( ref $data->{post_data} eq 'HASH' || ref $data->{post_data} eq 'ARRAY' ) {
confess "parameter post_data must be hashref or arrayref!"
}
$post_data = $self->_json->encode($data->{post_data});
lib/API/ParallelsWPB.pm view on Meta::CPAN
my ( $self, $data, $url, $post_data ) = @_;
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new( $data->{req_type} => $url );
if ( $data->{req_type} eq 'POST' || $data->{req_type} eq 'PUT' ) {
$req->header( 'content-type' => 'application/json' );
$req->content( $post_data );
}
$req->authorization_basic( $self->{username}, $self->{password} );
view release on metacpan or search on metacpan
lib/API/Stripe.pm view on Meta::CPAN
my $results = $stripe->update(%args);
# or
$stripe->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/Trello.pm view on Meta::CPAN
my $results = $trello->update(%args);
# or
$trello->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/Twitter.pm view on Meta::CPAN
my $results = $twitter->update(%args);
# or
$twitter->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/API/Wunderlist.pm view on Meta::CPAN
my $results = $wunderlist->update(%args);
# or
$wunderlist->PUT(%args);
The update method issues a C<PUT> request to the API resource represented by
the object. The arguments, expected to be a list of key/value pairs, will be
included in the request if the key is either C<data> or C<query>.
=head1 RESOURCES
view release on metacpan or search on metacpan
lib/APISchema/DSL.pm view on Meta::CPAN
( map { $_ => "${_}_resource" } qw(request response) ),
( map { $_ => $_ } qw(title description destination option) ),
);
our %METHODS = (
( map { $_ => $_ } qw(HEAD GET POST PUT DELETE PATCH) ),
FETCH => [qw(GET HEAD)],
);
our @DIRECTIVES = (qw(include filter resource title description), keys %METHODS);
our @EXPORT = @DIRECTIVES;
view release on metacpan or search on metacpan
lib/APP/REST/RestTestSuite.pm view on Meta::CPAN
# RestTestSuite supports config file of below format.
# All values in LHS of ':' are case sensitive.
# Every test case should be within the '#START_TEST_CASE' and '#END_TEST_CASE' block.
# Create application specific config file in below format and pass the
# full path of file as an argument to the constructor
# for POST and PUT methods you need to supply the request body within
# [START] and [END] tags
# request_body :
# [START]
# xml or json or form based
# [END]
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
return($s) if $s->{-ctrl};
print $s->cpcon("connect()\n") if $s->{-echo};
return($s) if $s->{-ctrl} && ARS::ars_VerifyUser($s->{-ctrl});
$s->{-ctrl} =ARS::ars_Login(
$s->{-srv}, $s->{-usr}, $s->{-pswd}, $s->{-lang}
, '' # , join('-', ($ENV{COMPUTERNAME} ||$ENV{HOSTNAME} ||eval('use Sys::Hostname;hostname') ||'localhost'), getlogin() || $> || '', $$, $^T, time())
, 0, 0)
|| return(&{$s->{-die}}($s->efmt($ARS::ars_errstr,$s->{-cmd},undef,'ars_Login', map {$_=>$s->{$_}} qw(-srv -usr -lang))));
$s->{-ctrl} && ARS::ars_SetSessionConfiguration($s->{-ctrl}, &ARS::AR_SESS_OVERRIDE_PREV_IP, 1);
$s->arsmeta();
$s
view release on metacpan or search on metacpan
ARS/CodeTemplate.pm view on Meta::CPAN
}
# print "OM($openMode) FILE($outFile)\n";
die "Syntax error in \"$line\"\n" unless $openMode =~ /^[>|]+$/;
if( defined $opt{debug} ){
print "#------------------------------------------------------------\n";
print "# OUTPUT: $line\n";
print $pCode;
print "#------------------------------------------------------------\n\n";
}else{
eval( 'package '.caller()."; $pCode; package ARWT::Template;" );
if( $@ ){
warn $@, "\n";
exit 1;
}
open( OUTPUT, "$openMode $outFile" ) or die "Open Error($openMode $outFile): $!\n";
print OUTPUT $output;
close OUTPUT;
}
( $pFlag, $pCode, $output ) = ( 0, '', '' );
}elsif( $line =~ s/^@>+// ){
$pCode .= "$line\n";
}else{
view release on metacpan or search on metacpan
applications/collector-test.pl view on Meta::CPAN
unless ( -e "$directory" ) { # create $directory
my ($systemAction, $stdout, $stderr, $exit_value, $signal_num, $dumped_core);
$systemAction = "mkdir $directory";
if ($CAPTUREOUTPUT) {
use IO::CaptureOutput qw(capture_exec);
($stdout, $stderr) = capture_exec("$systemAction");
} else {
system ("$systemAction"); $stdout = $stderr = '';
}
applications/collector-test.pl view on Meta::CPAN
my $_handler = $SIG{ALRM};
my $alarm = $interval * 60;
$SIG{ALRM} = sub { $CHILD_OFF = $alarm; warn "ASNMTAP::Asnmtap::Applications::Collector::CHILD_OFF = $alarm\n" };
alarm ( $alarm );
if ($CAPTUREOUTPUT) {
use IO::CaptureOutput qw(capture_exec);
($stdout, $stderr) = capture_exec("$systemAction");
my (@returnStatus) = split (/\n/, $stdout);
$returnStatus = $returnStatus[-1];
} else {
applications/collector-test.pl view on Meta::CPAN
}
$exit_value = $? >> 8;
$signal_num = $? & 127;
$dumped_core = $? & 128;
# print "$CAPTUREOUTPUT -> <$returnStatus> < $stdout >< $stderr >< $exit_value >< $signal_num >< $dumped_core >\n";
alarm (0);
$CHILD_OFF = 0;
$SIG{ALRM} = $_handler ? $_handler : 'DEFAULT';
} else {
applications/collector-test.pl view on Meta::CPAN
}
$endDate = get_csvfiledate();
$endTime = get_csvfiletime();
unless ( $CAPTUREOUTPUT ) {
$loggedStatus = ( $dumphttp ne 'N' ) ? $httpdumpFilenameTmp : $logging;
$loggedStatus .= '-status.txt';
$returnStatus = "<NIHIL> - $title: $loggedStatus";
if (-e "$loggedStatus") {
applications/collector-test.pl view on Meta::CPAN
$perfParseCommand = "$APPLICATIONPATH/sbin/perfparse_asnmtap_pulp_command.pl $PREFIXPATH/log/perfdata-asnmtap.log \"$perfParseTimeslot\t$eTitle\t$catalogID_uniqueKey\t$outputData\t$dumphttpRename\t$performanceData\"";
} else {
$perfParseCommand = "printf \"%b\" \"$perfParseTimeslot\t$eTitle\t$catalogID_uniqueKey\t$outputData\t$dumphttpRename\t$performanceData\n\" | $PERFPARSEBIN/perfparse-log2mysql -c $PERFPARSEETC/$PERFPARSECONFIG";
}
if ($CAPTUREOUTPUT) {
use IO::CaptureOutput qw(capture_exec);
($stdout, $stderr) = capture_exec("$perfParseCommand");
} else {
system ("$perfParseCommand"); $stdout = $stderr = '';
}
view release on metacpan or search on metacpan
sbin/asp4-prep view on Meta::CPAN
C<asp4-prep> simply makes an C<svn export> of your project folder and uses C<tar> to
compress the file.
B<This probably will not work very well on Windows.>
=head2 OUTPUT
After a successful run, the filename of the asp4 archive is printed to STDOUT.
=head2 WARNINGS
view release on metacpan or search on metacpan
//SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVsv(p1)));
XPUSHs(sv_2mortal(newSVsv(p2)));
PUTBACK;
/* Call the Perl sub to process the callback */
count = call_sv(callback, G_SCALAR);
SPAGAIN;
if(count != 1)
croak("Did not return a value\n");
cmp = POPi;
PUTBACK;
//FREETMPS;
//LEAVE;
return cmp;
if(SvOK(result) && SvTYPE(result) != SVt_NULL) {
/* WARN: if it's mortalised e.g. sv_2mortal(...)? returns "Attempt to free unreferenced scalar: SV" */
RETVAL = newSVsv(result);
} else
XSRETURN_UNDEF;
OUTPUT:
RETVAL
int
insert(self, item)
SV* self
croak("Unable to access tree\n");
tree = INT2PTR(AVLTree*, SvIV(*svp));
RETVAL = avltree_insert(tree, item);
OUTPUT:
RETVAL
int
remove(self, item)
SV* self
croak("Unable to access tree\n");
tree = INT2PTR(AVLTree*, SvIV(*svp));
RETVAL = avltree_erase(tree, item);
OUTPUT:
RETVAL
int
size(self)
SV* self
if(svp == NULL)
croak("Unable to access tree\n");
tree = INT2PTR(AVLTree*, SvIV(*svp));
RETVAL = avltree_size(tree);
OUTPUT:
RETVAL
SV*
first(self)
SV* self
croak("Unable to access tree traversal\n");
trav = INT2PTR(AVLTrav*, SvIV(*svp));
RETVAL = newSVsv(avltfirst(aTHX_ trav, tree));
OUTPUT:
RETVAL
SV*
last(self)
SV* self
croak("Unable to access tree traversal\n");
trav = INT2PTR(AVLTrav*, SvIV(*svp));
RETVAL = newSVsv(avltlast(aTHX_ trav, tree));
OUTPUT:
RETVAL
SV*
next(self)
SV* self
croak("Unable to access tree traversal\n");
trav = INT2PTR(AVLTrav*, SvIV(*svp));
RETVAL = newSVsv(avltnext(aTHX_ trav));
OUTPUT:
RETVAL
SV*
prev(self)
SV* self
croak("Unable to access tree traversal\n");
trav = INT2PTR(AVLTrav*, SvIV(*svp));
RETVAL = newSVsv(avltprev(aTHX_ trav));
OUTPUT:
RETVAL
void DESTROY(self)
SV* self
PROTOTYPE: $
view release on metacpan or search on metacpan
lib/AWS/CloudFront/Signer.pm view on Meta::CPAN
use Encode;
my $METADATA_PREFIX = 'x-amz-meta-';
my $AMAZON_HEADER_PREFIX = 'x-amz-';
enum 'AWS::CloudFront::HTTPMethod' => [qw( HEAD GET PUT POST DELETE )];
has 'cf' => (
is => 'ro',
isa => 'AWS::CloudFront',
required => 1,
view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
will create a resource C</foo>)
=head3 Create a new method
Each Lambda function we create gets its own method, which is where
AWS specifies what HTTP method it accepts (C<GET>,C<POST>,C<PUT>,
etc.) and how it decides who can access it.
This module always sets the type of method to C<ANY> (i.e. we always
call the lambda function and let it figure out what it wants to accept
or not.)
view release on metacpan or search on metacpan
lib/AWS/S3/Bucket.pm view on Meta::CPAN
String. Returns XML string.
Read-only.
See also L<PUT Bucket ACL|http://docs.amazonwebservices.com/AmazonS3/latest/API/index.html?RESTBucketPUTacl.html>
=head2 location_constraint
String. Read-only.
lib/AWS/S3/Bucket.pm view on Meta::CPAN
=back
The default value is undef which means 'US'.
See also L<PUT Bucket|http://docs.amazonwebservices.com/AmazonS3/latest/API/index.html?RESTBucketPUT.html>
=head2 policy
Read-only. String of JSON.
view release on metacpan or search on metacpan
AWS-Signature4
==============
This is a Perl module for generating Version 4 signatures for use with
Amazon Web Services. It can be used to add authentication information
to the headers of GET, POST, PUT and DELETE.
The module can be also used to generate "signed" URLs. These are
preauthorized URLs that contain all the authentication and header
information in the URL query parameters. They can be sent to another
user to, for example, grant time-limited access to a private S3
view release on metacpan or search on metacpan
lib/AWS/XRay/Plugin/EC2.pm view on Meta::CPAN
my $ua = HTTP::Tiny->new(timeout => 1);
# get token for IMDSv2
my $token = do {
my $res = $ua->request(
"PUT",
"$_base_url/api/token", {
headers => {
'X-aws-ec2-metadata-token-ttl-seconds' => '60',
},
}
view release on metacpan or search on metacpan
Freesubs/Freesubs.xs view on Meta::CPAN
}
*a++ = '"';
*a++ = '\0';
RETVAL = newSVpv("",0);
sv_usepvn(RETVAL,new,count);
OUTPUT:
RETVAL
void
split(CLASS,string)
char* CLASS
view release on metacpan or search on metacpan
lib/Acme/6502/Tube.pm view on Meta::CPAN
GSREAD => 0xFFC5,
NVWRCH => 0xFFC8,
NVRDCH => 0xFFCB,
OSFIND => 0xFFCE,
OSGBPB => 0xFFD1,
OSBPUT => 0xFFD4,
OSBGET => 0xFFD7,
OSARGS => 0xFFDA,
OSFILE => 0xFFDD,
OSASCI => 0xFFE3,
OSNEWL => 0xFFE7,
lib/Acme/6502/Tube.pm view on Meta::CPAN
$self->make_vector( 'OSWRCH', 0x20E, \&_oswrch );
$self->make_vector( 'OSRDCH', 0x210, \&_osrdch );
$self->make_vector( 'OSFILE', 0x212, \&_osfile );
$self->make_vector( 'OSARGS', 0x214, \&_osargs );
$self->make_vector( 'OSBGET', 0x216, \&_osbget );
$self->make_vector( 'OSBPUT', 0x218, \&_osbput );
$self->make_vector( 'OSGBPB', 0x21A, \&_osgbpb );
$self->make_vector( 'OSFIND', 0x21C, \&_osfind );
$self->set_jumptab( 0xFA00 );
}
lib/Acme/6502/Tube.pm view on Meta::CPAN
sub _osbget {
die "OSBGET not handled\n";
}
sub _osbput {
die "OSBPUT not handled\n";
}
sub _osgbpb {
die "OSGBPB not handled\n";
}