view release on metacpan or search on metacpan
examples/pmd_cgidepend.plx view on Meta::CPAN
### EDIT THIS OPTIONALLY - if true then we'll print a clientside imagemap/make SVGs clickable. if false, no imagemap
use constant DOES_IMAGEMAP => 1;
### EDIT THIS OPTIONALLY - set to 'object' or 'embed'. the default way of embedding an SVG image into the page. Apparently we _should_ use object but many browsers can't handle that
use constant HOW_EMBED => 'object';
use CGI;
use Module::Dependency::Info;
use Module::Dependency::Grapher;
examples/pmd_cgidepend.plx view on Meta::CPAN
my $kind = $cgi->param('kind') || 'both';
my $embed = $cgi->param('embed');
my $format = $cgi->param('format') || DEFAULT_FORMAT;
$format =~ s/\W//g;
$format = uc($format);
my $howembed = lc($cgi->param('howembed')) || HOW_EMBED;
if ($datafile) {
die("Unlikely characters in filename") if ($datafile =~ m/[^\w\/\:\.-]/);
die("Unlikely looking filename") if ($datafile =~ m/\.\./);
Module::Dependency::Grapher::setIndex( DATADIR . $datafile );
view release on metacpan or search on metacpan
lib/Module/Which/P5Path.pm view on Meta::CPAN
/usr/local/lib/perl
====
> perl -v
This is perl, version 5.003 with EMBED
r11:/u01/r11>/u01/app/oracle/product/8.0.6/ows/3.0/perl/bin/perl -e '$" = "\n"; print "@INC"'
/mnt/was302/SRC/exp/cartxs/src/perl/lib/PA-RISC/5.003
/mnt/was302/SRC/exp/cartxs/src/perl/lib
/mnt/was302/SRC/exp/cartxs/src/perl/lib/site_perl/PA-RISC
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/LinkEmbedder.pm view on Meta::CPAN
use Mojo::Base 'Mojolicious::Plugin';
use Mojo::JSON;
use Mojo::UserAgent;
use Mojolicious::Plugin::LinkEmbedder::Link;
use constant DEBUG => $ENV{MOJO_LINKEMBEDDER_DEBUG} || 0;
our $VERSION = '0.2301';
has _ua => sub { Mojo::UserAgent->new(max_redirects => 3) };
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
lib/Moose.pm view on Meta::CPAN
$self->first_name . ' ' . $self->last_name
}
no Moose; # keywords are removed from the Person package
=head1 EXTENDING AND EMBEDDING MOOSE
To learn more about extending Moose, we recommend checking out the
"Extending" recipes in the L<Moose::Cookbook>, starting with
L<Moose::Cookbook::Extending::ExtensionOverview>, which provides an overview of
all the different ways you might extend Moose. L<Moose::Exporter> and
view release on metacpan or search on metacpan
ConsoleService.xs view on Meta::CPAN
#include <nsIServiceManager.h>
#include <nsEmbedString.h>
#include <nsServiceManagerUtils.h>
#include "build/version.h"
#if MCS_MOZEMBED_VERSION < 1900
#define GetMessageMoz GetMessage
#endif /* MCS_MOZEMBED_VERSION */
static SV *wrap_unichar_string(const PRUnichar *uni_str) {
nsEmbedString utf8;
nsEmbedCString u8c;
const char * u8str;
view release on metacpan or search on metacpan
MODULE = Mozilla::DOM PACKAGE = Mozilla::DOM::HTMLEmbedElement PREFIX = moz_dom_
# /usr/include/mozilla/nsIDOMHTMLEmbedElement.h
## NS_DEFINE_STATIC_IID_ACCESSOR(NS_IDOMHTMLEMBEDELEMENT_IID)
static nsIID
nsIDOMHTMLEmbedElement::GetIID()
CODE:
const nsIID &id = nsIDOMHTMLEmbedElement::GetIID();
RETVAL = (nsIID) id;
view release on metacpan or search on metacpan
gtkmozembed2perl-version.h view on Meta::CPAN
#define GTK_MOZ_EMBED_MAJOR_VERSION (1)
#define GTK_MOZ_EMBED_MINOR_VERSION (7)
#define GTK_MOZ_EMBED_MICRO_VERSION (13)
#define GTK_MOZ_EMBED_CHECK_VERSION(major,minor,micro) \
(GTK_MOZ_EMBED_MAJOR_VERSION > (major) || \
(GTK_MOZ_EMBED_MAJOR_VERSION == (major) && GTK_MOZ_EMBED_MINOR_VERSION > (minor)) || \
(GTK_MOZ_EMBED_MAJOR_VERSION == (major) && GTK_MOZ_EMBED_MINOR_VERSION == (minor) && GTK_MOZ_EMBED_MICRO_VERSION >= (micro)))
view release on metacpan or search on metacpan
deps/msgpack-c/include/msgpack/unpack_define.h view on Meta::CPAN
#ifdef __cplusplus
extern "C" {
#endif
#ifndef MSGPACK_EMBED_STACK_SIZE
#define MSGPACK_EMBED_STACK_SIZE 32
#endif
typedef enum {
MSGPACK_CS_HEADER = 0x00, // nil
view release on metacpan or search on metacpan
lib/Music/Abc/DT.pm view on Meta::CPAN
use constant { # symbol state in file/tune
ABC_S_GLOBAL => 0, # global
ABC_S_HEAD => 1, # in header (after X:)
ABC_S_TUNE => 2, # in tune (after K:)
ABC_S_EMBED => 3 # embedded header (between [..])
};
use constant { # info flags
ABC_F_ERROR => 0x0001, # error around this symbol
lib/Music/Abc/DT.pm view on Meta::CPAN
);
our %state_name = (
(ABC_S_GLOBAL) => 'in_global',
(ABC_S_HEAD) => 'in_header',
(ABC_S_TUNE) => 'in_tune',
(ABC_S_EMBED) => 'in_line',
);
our @key_tonic = qw(F C G D A E B);
our @key_shift = (1, 3, 5, 0, 2, 4, 6, 1, 4); # [7 + 2]
our @clef_type = qw(treble alto bass perc);
lib/Music/Abc/DT.pm view on Meta::CPAN
# -- Updates the current voice and some info related to it --
sub _get_voice {
my $sym = shift;
if ( $sym->{state} == ABC_S_TUNE || $sym->{state} == ABC_S_EMBED ) {
$c_voice = $sym->{info}->{voice};
#set voice stuff if not already set
#TODO check abcm2ps-7.3.4/parse.c:2817 (do_tune)
$voice_struct{$c_voice}{id} ||= $sym->{info}->{id};
lib/Music/Abc/DT.pm view on Meta::CPAN
# -- returns the abc for the info field and the new line flag
sub _info_to_abc {
my ($new_abc, $sym, $c, $nl_new) = @_;
if ($sym->{state} == ABC_S_EMBED) { $new_abc .= '[' }
elsif ($c ne "\n") { $new_abc .= "\\\n";
# _lyrics_dump($new_abc, $sym);
}
$new_abc = _header_dump($new_abc, $sym);
if ($sym->{state} == ABC_S_EMBED) { $new_abc .= ']' }
else { $nl_new = 1; }
return ($new_abc, $nl_new);
}
lib/Music/Abc/DT.pm view on Meta::CPAN
my $s = \${$tunes_ref}->{$tune}->{symbols}->[$ix];
given ( ${$s}->{type} ) {
when (ABC_T_INFO) {
given ( substr ${$s}->{text}, 0, 1 ) {
when ('V') { # Voice
if ( ${$s}->{state} ~~ [ABC_S_TUNE, ABC_S_EMBED] ) {
$c = ${$s}->{info}->{voice};
$v_i{$c}{meter}{wmeasure} ||= BASE_LEN;
}
}
when ('M') { # Meter
lib/Music/Abc/DT.pm view on Meta::CPAN
given ( $s->{type} ) {
when (ABC_T_INFO) {
given ( substr $s->{text}, 0, 1 ) {
when ('V') { # Voice
if ( $s->{state} ~~ [ABC_S_TUNE, ABC_S_EMBED] ) {
$c = $s->{info}->{voice};
$v_i{$c}{meter}{wmeasure} ||= BASE_LEN;
$v_i{$c}{bar}{num} ||= int $FIRST_MEASURE;
$v_i{$c}{bar}{time} ||= 0;
$v_i{$c}{time} ||= 0;
view release on metacpan or search on metacpan
Wingraph.pm view on Meta::CPAN
GDI_CLIP_CHARACTER_PRECIS =>1,
GDI_CLIP_STROKE_PRECIS =>2,
GDI_CLIP_MASK =>0xf,
GDI_CLIP_LH_ANGLES =>(1<<4),
GDI_CLIP_TT_ALWAYS =>(2<<4),
GDI_CLIP_EMBEDDED =>(8<<4),
GDI_DEFAULT_QUALITY =>0,
GDI_DRAFT_QUALITY =>1,
GDI_PROOF_QUALITY =>2,
view release on metacpan or search on metacpan
t/v2_config/nagios.cfg view on Meta::CPAN
date_format=us
# MAXIMUM EMBEDDED PERL INTERPRETER CALLS
# This value determines how often (if at all) the embedded Perl
# interpreter is reinitialized during runtime. This is useful
# if you notice that the Perl interpreter is causing slow
# memory leaks over time. Setting this value to 0 means the
# embedded Perl interpreter will never be reinitialized. Any
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
lib/Net/ILO.pm view on Meta::CPAN
my ($self, $command) = @_;
my %commands = (
'get_embedded_health' => qq( <SERVER_INFO MODE="read">
<GET_EMBEDDED_HEALTH/>
</SERVER_INFO> ),
'get_fw_version' => qq( <RIB_INFO MODE="read">
<GET_FW_VERSION/>
</RIB_INFO> ),
lib/Net/ILO.pm view on Meta::CPAN
if ( my $errmsg = _check_errors($xml) ) {
$self->error($errmsg);
return;
}
my $fans = $xml->{GET_EMBEDDED_HEALTH_DATA}->{FANS}->{FAN};
my $power_supplies = $xml->{GET_EMBEDDED_HEALTH_DATA}->{POWER_SUPPLIES}->{SUPPLY};
my $temperatures = $xml->{GET_EMBEDDED_HEALTH_DATA}->{TEMPERATURE}->{TEMP};
foreach my $fan (@$fans) {
my $location = $fan->{ZONE}->{VALUE};
my $name = $fan->{LABEL}->{VALUE};
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
extras/oui-20151113.txt view on Meta::CPAN
008032 (base 16) ACCESS CO., LTD.
HIEI-KUDAN BLDG. B1
JP
00-80-CF (hex) EMBEDDED PERFORMANCE INC.
0080CF (base 16) EMBEDDED PERFORMANCE INC.
3385 SCOTT BLVD.
SANTA CLARA CA 95054-3115
US
00-80-31 (hex) BASYS, CORP.
extras/oui-20151113.txt view on Meta::CPAN
005091 (base 16) NETACCESS, INC.
18 KEEWAYDIN DRIVE
SALEM NH 03079
US
00-50-97 (hex) MMC-EMBEDDED COMPUTERTECHNIK GmbH
005097 (base 16) MMC-EMBEDDED COMPUTERTECHNIK GmbH
ULRICHSBERGERSTR. 17
D-94469 DEGGENDORF
DE
00-50-AF (hex) INTERGON, INC.
extras/oui-20151113.txt view on Meta::CPAN
0CF0B4 (base 16) Globalsat International Technology Ltd
17th floor,China Youse Building,No.6013 Shennan Avenue,Futian District,
Shenzhen Guangdong 518040
CN
BC-C6-1A (hex) SPECTRA EMBEDDED SYSTEMS
BCC61A (base 16) SPECTRA EMBEDDED SYSTEMS
Khasra No. 24, Village Ghumman,1st Floor, Chawla Mansion,
Parwanoo Himachal Pradesh 173 220
IN
48-DF-1C (hex) Wuhan NEC Fibre Optic Communications industry Co. Ltd
view release on metacpan or search on metacpan
lib/Net/MacMap.pm view on Meta::CPAN
'005092' => 'RIGAKU INDUSTRIAL CORPORATION',
'005093' => 'BOEING',
'005094' => 'PACE MICRO TECHNOLOGY PLC',
'005095' => 'PERACOM NETWORKS',
'005096' => 'SALIX TECHNOLOGIES, INC.',
'005097' => 'MMC-EMBEDDED COMPUTERTECHNIK GmbH',
'005098' => 'GLOBALOOP, LTD.',
'005099' => '3COM EUROPE, LTD.',
'00509A' => 'TAG ELECTRONIC SYSTEMS',
'00509B' => 'SWITCHCORE AB',
'00509C' => 'BETA RESEARCH',
lib/Net/MacMap.pm view on Meta::CPAN
'0080CA' => 'NETCOM RESEARCH INCORPORATED',
'0080CB' => 'FALCO DATA PRODUCTS',
'0080CC' => 'MICROWAVE BYPASS SYSTEMS',
'0080CD' => 'MICRONICS COMPUTER, INC.',
'0080CE' => 'BROADCAST TELEVISION SYSTEMS',
'0080CF' => 'EMBEDDED PERFORMANCE INC.',
'0080D0' => 'COMPUTER PERIPHERALS, INC.',
'0080D1' => 'KIMTRON CORPORATION',
'0080D2' => 'SHINNIHONDENKO CO., LTD.',
'0080D3' => 'SHIVA CORP.',
'0080D4' => 'CHASE RESEARCH LTD.',
view release on metacpan or search on metacpan
asn1/xer_decoder.c view on Meta::CPAN
case PXER_TEXT:
if(ctx->phase == 0) {
/*
* We have to ignore whitespace here,
* but in order to be forward compatible
* with EXTENDED-XER (EMBED-VALUES, #25)
* any text is just ignored here.
*/
} else {
XER_GOT_BODY(buf_ptr, ch_size, size);
}
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
include/class.h view on Meta::CPAN
} role;
};
};
/* Metadata about the embedding of a role into a class */
#define LINNET_VAL_ROLEEMBEDDING 0x4F505245 /* "OPRE" */
#define MUST_ROLEEMBEDDING(ptr) LINNET_CHECK_CAST(ptr, RoleEmbedding *, LINNET_VAL_ROLEEMBEDDING)
typedef struct RoleEmbedding {
LINNET_FIELD
SV *embeddingsv;
struct ClassMeta *rolemeta;
struct ClassMeta *classmeta;
view release on metacpan or search on metacpan
dXSTARG|5.006000|5.003007|poVnu
dXSUB_SYS|5.003007||Viu
edit_distance|5.023008||Vniu
EIGHT_BIT_UTF8_TO_NATIVE|5.023003||Viu
ELEMENT_RANGE_MATCHES_INVLIST|5.023002||Viu
EMBEDMYMALLOC|5.006000||Viu
emulate_cop_io|||xciu
emulate_setlocale|5.027009||Vniu
END|5.003007||Viu
END_EXTERN_C|5.005000|5.003007|pV
endgrent|5.009000||Viu
view release on metacpan or search on metacpan
share/openapi.yaml view on Meta::CPAN
public static void main(String[] args) {
OpenAIClient client = OpenAIOkHttpClient.fromEnv();
EmbeddingCreateParams params = EmbeddingCreateParams.builder()
.input("The quick brown fox jumped over the lazy dog")
.model(EmbeddingModel.TEXT_EMBEDDING_3_SMALL)
.build();
CreateEmbeddingResponse createEmbeddingResponse = client.embeddings().create(params);
}
}
ruby: |-
view release on metacpan or search on metacpan
OpenSSL/SMIME.pm view on Meta::CPAN
unless(! $params{CERTIFICATE} || ref($params{CERTIFICATE})) {
return($self->_setError(8011001,
$self->{gettext} ("OpenCA::OpenSSL::SMIME->verify: Invalid argument for CERTIFICATE")));
}
unless($params{CERTIFICATE} || $params{USES_EMBEDDED_CERT}) {
return($self->_setError(8011002,
$self->{gettext} ("OpenCA::OpenSSL::SMIME->verify: No certificate specified and not using embedded certificate")));
}
# Set up files
OpenSSL/SMIME.pm view on Meta::CPAN
push(@command, "smime", "-verify");
push(@command, "-engine", $self->get_param ("ENGINE", %params),
"-keyform", $self->get_param ("KEYFORM", %params))
if($self->get_param ("ENGINE", %params));
push(@command, "-nointern") unless($params{USES_EMBEDDED_CERT});
push(@command, "-CAfile", $self->{ca_certs_file}) if($self->{ca_certs_file});
push(@command, "-certfile", $certfile) if($certfile);
push(@command, "-in", $self->{file},
"-out", $outfile,
"-signer", $signerfile);