Result:
found 674 distributions and 1899 files matching your query !
( run in 0.498 )
HiPi
view release on metacpan or search on metacpan
lib/HiPi/Interface/EPaper/TypeB.pm view on Meta::CPAN
}
} elsif( $control == EPD_BORDER_WHITE ) {
$border = HIPI_BORDER_WHITE;
}
my $vcdata = $border | $vcom;
# warn sprintf('RETURNING VCOM DATA 0x%X', $vcdata);
return $vcdata;
}
1;
__END__
Hopkins-Plugin-HMI
view release on metacpan or search on metacpan
share/root/static/yui/assets/dpSyntaxHighlighter.css view on Meta::CPAN
.dp-sql .keyword { color: blue; }
.dp-sql .func { color: #ff1493; }
.dp-sql .op { color: #808080; }
*/
.dp-xml {}
.dp-xml .cdata { color: #ff1493; }
.dp-xml .comments { color: green; }
.dp-xml .tag { color: blue; }
.dp-xml .tag-name { color: black; font-weight: bold; }
.dp-xml .attribute { color: red; }
.dp-xml .attribute-value { color: blue; }
IO-Async-XMLStream-SAXReader
view release on metacpan or search on metacpan
lib/IO/Async/XMLStream/SAXReader.pm view on Meta::CPAN
attribute_decl
characters
comment
doctype_decl
element_decl
end_cdata
end_document
end_dtd
end_element
end_entity
end_prefix_mapping
lib/IO/Async/XMLStream/SAXReader.pm view on Meta::CPAN
notation_decl
processing_instruction
resolve_entity
set_document_locator
skipped_entity
start_cdata
start_document
start_dtd
start_element
start_entity
start_prefix_mapping
IPC-XPA
view release on metacpan or search on metacpan
{
/* push the name of the server */
PUSHs( sv_2mortal(newSVpv(names[i],0)) );
/* push a reference to the hash onto the stack */
PUSHs( sv_2mortal(newRV_noinc((SV*)
cdata2hash_Get(bufs[i],lens[i],names[i],
messages[i] ))) );
free( names[i] );
free( messages[i] );
}
/* free up memory that's no longer needed */
{
/* push the name of the server */
PUSHs( sv_2mortal(newSVpv(names[i],0)) );
/* Now, push a reference to the hash onto the stack */
PUSHs( sv_2mortal(newRV_noinc((SV*)
cdata2hash_Set(names[i], messages[i] ))) );
free( names[i] );
free( messages[i] );
}
/* free up memory that's no longer needed */
Safefree( names );
{
/* push the name of the server */
PUSHs( sv_2mortal(newSVpv(names[i],0)) );
/* Now, push a reference to the hash onto the stack */
PUSHs( sv_2mortal(newRV_noinc((SV*)
cdata2hash_Set(names[i], messages[i] ))) );
free( names[i] );
free( messages[i] );
}
/* free up memory that's no longer needed */
Safefree( names );
EXTEND(SP, ns);
for ( i = 0 ; i < ns ; i++ )
{
/* Now, push a reference to the hash onto the stack */
PUSHs( sv_2mortal(newRV_noinc((SV*)
cdata2hash_Lookup(xclasses[i],
names[i],
methods[i],
infos[i]
))) );
free( xclasses[i] );
free( messages[i] );
messages[i] = NULL;
}
/* Now, push a reference to the hash onto the stack */
PUSHs( sv_2mortal(newRV_noinc((SV*)
cdata2hash_Set(names[i], messages[i] ))) );
free( names[i] );
free( messages[i] );
}
/* free up memory that's no longer needed */
Safefree( names );
Image-Base-SVG
view release on metacpan or search on metacpan
devel/run.pl view on Meta::CPAN
$image->load($filename);
exit 0;
}
{
my $svg = SVG->new;
$svg->tag('title')->cdata('hello');
my $xml = $svg->xmlify;
$xml =~ s/title /title/;
print "$xml\n";
{
require XML::LibXML;
devel/run.pl view on Meta::CPAN
my @elems = $svg->getElements();
### @elems
$svg->comment('abc');
$svg->comment('def');
# $svg->title->cdata('abcdef');
### $svg
$svg = $svg->cloneNode;
print $svg->xmlify;
print $svg->xmlify;
print $svg->xmlify;
Image-ExifTool
view release on metacpan or search on metacpan
lib/Image/ExifTool/Jpeg2000.pm view on Meta::CPAN
my $meth = $et->GetNewValue('Jpeg2000:ColorSpecMethod');
my $prec = $et->GetNewValue('Jpeg2000:ColorSpecPrecedence') || 0;
my $approx = $et->GetNewValue('Jpeg2000:ColorSpecApproximation') || 0;
my $icc = $et->GetNewValue('ICC_Profile');
my $space = $et->GetNewValue('Jpeg2000:ColorSpace');
my $cdata = $et->GetNewValue('Jpeg2000:ColorSpecData');
unless ($meth) {
if ($icc) {
$meth = 2;
} elsif (defined $space) {
$meth = 1;
} elsif (defined $cdata) {
$meth = 4;
} else {
$et->Warn('Color space not defined'), return 0;
}
}
if ($meth eq '1') {
defined $space or $et->Warn('Must specify ColorSpace'), return 0;
$cdata = pack('N', $space);
} elsif ($meth eq '2' or $meth eq '3') {
defined $icc or $et->Warn('Must specify ICC_Profile'), return 0;
$cdata = $icc;
} elsif ($meth eq '4') {
defined $cdata or $et->Warn('Must specify ColorSpecData'), return 0;
} else {
$et->Warn('Unknown ColorSpecMethod'), return 0;
}
my $boxhdr = pack('N', length($cdata) + 11) . 'colr';
Write($outfile, $boxhdr, pack('CCC',$meth,$prec,$approx), $cdata) or return 0;
++$$et{CHANGED};
$et->VPrint(1, " + Jpeg2000:ColorSpec\n");
return 1;
}
Image-Leptonica
view release on metacpan or search on metacpan
lib/Image/Leptonica/Func/bmpio.pm view on Meta::CPAN
=head1 FUNCTIONS
=head2 pixReadMemBmp
PIX * pixReadMemBmp ( const l_uint8 *cdata, size_t size )
pixReadMemBmp()
Input: cdata (const; bmp-encoded)
size (of data)
Return: pix, or null on error
Notes:
(1) The @size byte of @data must be a null character.
Image-Seek
view release on metacpan or search on metacpan
memcpy(b,d2,16384*sizeof(double));
memcpy(c,d3,16384*sizeof(double));
Safefree(d1);Safefree(d2);Safefree(d3);Safefree(Ab1);Safefree(Ab2);Safefree(Ab3);
}
int calcHaar(double* cdata1,double* cdata2,double* cdata3,int* sig1,int* sig2,int* sig3,double * avgl)
{
//TODO: Speed up..
int cnt,i;
valStruct vals[41];
double * cadata1=absarray(cdata1);
double * cadata2=absarray(cdata2);
double * cadata3=absarray(cdata3);
avgl[0]=cdata1[0];
avgl[1]=cdata2[0];
avgl[2]=cdata3[0];
// determines the 40th largest absolute value. For each color channel
valqueue vq;
cnt=0;
for (i=0;i<16384;i++) {
if (cnt==40) {
vals[cnt].d=cadata1[i];
vq.push(vals[cnt]);
cnt++;
}
}
truncq(cadata1,cdata1,vq.top().d,sig1);
while(!vq.empty()) vq.pop();
cnt=0;
for (i=0;i<16384;i++) {
if (cnt==40) {
vals[cnt].d=cadata2[i];
vq.push(vals[cnt]);
cnt++;
}
}
truncq(cadata2,cdata2,vq.top().d,sig2);
while(!vq.empty()) vq.pop();
cnt=0;
for (i=0;i<16384;i++) {
if (cnt==40) {
vals[cnt].d=cadata3[i];
vq.push(vals[cnt]);
cnt++;
}
}
truncq(cadata3,cdata3,vq.top().d,sig3);
Safefree(cadata1);
Safefree(cadata2);
Safefree(cadata3);
return 1;
Inline-SLang
view release on metacpan or search on metacpan
* (would be quicker to just point to it but that leads to memory-managment issues)
*
* It is not entirely clear to me from the S-Lang docs whether I can safely
* access the data field of the array directly.
*/
PDL->allocdata( out );
(void) memcpy( out->data, at->data, (size_t) at->num_elements * dsize );
/* covert the piddle into a 'SV *' */
sv = sv_newmortal();
PDL->SetSV_PDL( sv, out );
JS-SourceMap
view release on metacpan or search on metacpan
t/fixtures/jquery.js view on Meta::CPAN
},
// Contents
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is only affected by element nodes and content nodes(including text(3), cdata(4)),
// not comment, processing instructions, or others
// Thanks to Diego Perini for the nodeName shortcut
// Greater than "@" means alpha characters (specifically not starting with "#" or "?")
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeName > "@" || elem.nodeType === 3 || elem.nodeType === 4 ) {
JSON-Transform
view release on metacpan or search on metacpan
lib/JSON/Transform.pm view on Meta::CPAN
($destptr, $srcptr, $mapping) = @{$_->{children}};
} elsif ($name eq 'transformMove') {
($destptr, $srcptr) = @{$_->{children}};
$srcptr = _eval_expr($data, $srcptr, _make_sysvals(), $uservals, 1);
die "invalid src pointer '$srcptr'" if !_pointer(1, $data, $srcptr);
my $srcdata = _pointer(0, $data, $srcptr, 1);
_apply_destination($data, $destptr, $srcdata, $uservals);
return $data;
} else {
die "Unknown transform type '$name'";
}
my $srcdata = _eval_expr($data, $srcptr, _make_sysvals(), $uservals);
my $newdata;
if ($mapping) {
my $opFrom = $mapping->{attributes}{opFrom};
die "Expected '$srcptr' to point to hash"
if $opFrom eq '<%' and ref $srcdata ne 'HASH';
die "Expected '$srcptr' to point to array"
if $opFrom eq '<@' and ref $srcdata ne 'ARRAY';
$newdata = _apply_mapping($data, $mapping->{children}[0], dclone $srcdata, $uservals);
} else {
$newdata = $srcdata;
}
_apply_destination($data, $destptr, $newdata, $uservals);
}
$data;
};
JSON-Validator
view release on metacpan or search on metacpan
"Michael Schout <mschout@gkg.net>",
"Mohammad S Anwar <mohammad.anwar@yahoo.com>",
"Nick Morrott <knowledgejunkie@gmail.com>",
"Pierre-Aymeric Masse <pamasse@afnic.fr>",
"Roy Storey <kiwiroy@users.noreply.github.com>",
"Russell Jenkins <russell.jenkins@strategicdata.com.au>",
"Sebastian Riedel <sri@cpan.org>",
"Stephan Hradek <github@hradek.net>",
"Tim Stallard <tim@mythic-beasts.com>",
"Zoffix Znet <cpan@zoffix.com>"
],
Jabber-Connection
view release on metacpan or search on metacpan
relationship built from insertTag($node) calls (me)
0.03 2002-02-24
- Jabber::Connection : be more accurate with the to='' addressing
in the stream header (sean welsh)
- Jabber::NodeFactory : accumulate cdata for XML from string (rob norris)
- Jabber::Connection : modified _read() to work around problem
in BSD implementation of recv() (ralphm)
- Added component example and XML
- Added use strict to client example (!)
Jabber-Lite
view release on metacpan or search on metacpan
lib/Jabber/Lite.pm view on Meta::CPAN
}
# See if this is actually processing instructions etc.
if( $self->name() =~ /^\[CDATA\[/ ){
if( ! $usefh ){
$retstr .= $self->{'_cdata'} . "]]";
}else{
print $fh $self->{'_cdata'} . "]]";
}
$doend = 1;
}elsif( $self->name() =~ /^\!/ ){
$mustend = 1;
lib/Jabber/Lite.pm view on Meta::CPAN
$curstatus = "comment";
$self->{'_name'} = '!--';
$str = $1 . $str;
}elsif( $self->{'_name'} =~ /^(\!\[CDATA\[)(.*)$/ ){
$curstatus = "cdata";
$self->{'_name'} = $1;
$str = $2 . $str;
}elsif( $self->{'_name'} =~ /\/$/s ){
# Possible start of '/>' . Send it back.
lib/Jabber/Lite.pm view on Meta::CPAN
if( $self->{'_name'} =~ /^\!/ ){
$curstatus = "doctype";
}elsif( $self->{'_name'} =~ /^\?/s ){
$curstatus = "processinginstructions";
}elsif( $self->{'_name'} =~ /^(\!\[CDATA\[)(.*)$/ ){
$curstatus = "cdata";
$self->{'_name'} = $1;
$str = $2 . $str;
}
}elsif( ! defined( $str ) ){
lib/Jabber/Lite.pm view on Meta::CPAN
}elsif( $self->{'_name'} =~ /^\!/ ){
$curstatus = "doctype";
}elsif( $self->{'_name'} =~ /^\?/s ){
$curstatus = "processinginstructions";
}elsif( $self->{'_name'} =~ /^(\!\[CDATA\[)(.*)$/ ){
$curstatus = "cdata";
$self->{'_name'} = $1;
$str = $2 . $str;
}
}
lib/Jabber/Lite.pm view on Meta::CPAN
}
}
# The string is (or is now) text that is stuff with the doctype
# declaration.
if( $curstatus =~ /^(doctype|processinginstructions|cdata)/ ){
my $strlength = ( length( $str ) - 1 );
my $loop = -1;
my $stillgoing = 1;
my $prevquery = -5;
lib/Jabber/Lite.pm view on Meta::CPAN
$prevquery = '?';
$self->{'_processinginstructions'} .= $thischar;
}else{
$self->{'_processinginstructions'} .= $thischar;
}
}elsif( $curstatus eq "cdata" ){
if( $thischar eq '>' ){
$self->{'_cdata'} .= $thischar;
# See if this is the end pattern?
if( $self->{'_cdata'} =~ /\]\]>$/s ){
chomp( $self->{'_processinginstructions'} );
chomp( $self->{'_processinginstructions'} );
chomp( $self->{'_processinginstructions'} );
$curstatus = "complete";
$stillgoing = 0;
}
}else{
$self->{'_cdata'} .= $thischar;
}
}
}
# Supply the remaining text to return.
Jabber-mod_perl
view release on metacpan or search on metacpan
examples/MyStamp.pm view on Meta::CPAN
push(@attrs, [$nad->nad_attr_name($attr), $nad->nad_attr_val($attr)]);
}
xwarn "ELEMENT 1 (".$nad->nad_elem_name(1).") ATTRS: ".Dumper(\@attrs);
return PASS unless $type eq "message";;
my $el = $nad->find_elem(1,-1,"body",1);
my $data = $nad->nad_cdata( $el );
xwarn "Body element is: $el - $data";
my $ns = $nad->find_scoped_namespace("http://jabber.org/protocol/xhtml-im","");
xwarn "namespace is: $ns";
xwarn "NAMESPACES: ".Dumper($nad->list_namespaces());
my $elhtml = $nad->find_elem(1,$ns,"html",1) if $ns;
xwarn "XHTML HTML element is: $elhtml";
my $elx = $nad->find_elem($elhtml,-1,"body",1) if $elhtml;
xwarn "BODY HTML element (no namespace) is: $elx";
my $datax = $nad->nad_cdata( $elx ) if $elx;
xwarn "Body xhtml element is: $elhtml/$elx - $datax" if $elx;
#$nad->append_cdata_head($el, "some data or other");
$nad->replace_cdata_head($el, "beginning... ($data/$el) ...some data or other") if $el > 0;
$nad->replace_cdata_head($elx, "beginning... ($datax) ...some data or other") if $elx;
# accumulate stats
$cnt++;
unless ($cnt%20) {
# message the stats every 20 times
JavaScript-ExtJS-V3
view release on metacpan or search on metacpan
share/ext-3.4.1/examples/direct/php/router.php view on Meta::CPAN
$data->data = array($_POST, $_FILES);
}else{
die('Invalid request.');
}
function doRpc($cdata){
global $API;
try {
if(!isset($API[$cdata->action])){
throw new Exception('Call to undefined action: ' . $cdata->action);
}
$action = $cdata->action;
$a = $API[$action];
doAroundCalls($a['before'], $cdata);
$method = $cdata->method;
$mdef = $a['methods'][$method];
if(!$mdef){
throw new Exception("Call to undefined method: $method on action $action");
}
doAroundCalls($mdef['before'], $cdata);
$r = array(
'type'=>'rpc',
'tid'=>$cdata->tid,
'action'=>$action,
'method'=>$method
);
require_once("classes/$action.php");
$o = new $action();
$params = isset($cdata->data) && is_array($cdata->data) ? $cdata->data : array();
$r['result'] = call_user_func_array(array($o, $method), $params);
doAroundCalls($mdef['after'], $cdata, $r);
doAroundCalls($a['after'], $cdata, $r);
}
catch(Exception $e){
$r['type'] = 'exception';
$r['message'] = $e->getMessage();
$r['where'] = $e->getTraceAsString();
}
return $r;
}
function doAroundCalls(&$fns, &$cdata, &$returnData=null){
if(!$fns){
return;
}
if(is_array($fns)){
foreach($fns as $f){
$f($cdata, $returnData);
}
}else{
$fns($cdata, $returnData);
}
}
$response = null;
if(is_array($data)){
Jifty
view release on metacpan or search on metacpan
lib/Jifty/View/Declare/CoreTemplates.pm view on Meta::CPAN
$writer->startTag( "fragment",
id => Jifty->web->current_region->qualified_name );
my %args = %{ Jifty->web->current_region->arguments };
$writer->dataElement( "argument", $args{$_}, name => $_ )
for sort keys %args;
$writer->cdataElement( "content",
Jifty->web->current_region->as_string );
$writer->endTag();
Jifty->web->current_region->exit while Jifty->web->current_region;
}
LWP-MediaTypes
view release on metacpan or search on metacpan
lib/LWP/media.types view on Meta::CPAN
# application/vnd.marlin.drm.actiontoken+xml
# application/vnd.marlin.drm.conftoken+xml
# application/vnd.marlin.drm.license+xml
# application/vnd.marlin.drm.mdcf
application/vnd.mcd mcd
application/vnd.medcalcdata mc1
application/vnd.mediastation.cdkey cdkey
# application/vnd.meridian-slingshot
application/vnd.mfer mwf
application/vnd.mfmp mfm
application/vnd.micrografx.flo flo
LaTeXML-Plugin-LtxMojo
view release on metacpan or search on metacpan
lib/LaTeXML/Plugin/LtxMojo/public/js/external/ace-min/mode-coldfusion.js view on Meta::CPAN
define("ace/mode/coldfusion",["require","exports","module","ace/lib/oop","ace/mode/xml","ace/mode/javascript","ace/mode/css","ace/tokenizer","ace/mode/coldfusion_highlight_rules"],function(e,t,n){var r=e("../lib/oop"),i=e("./xml").Mode,s=e("./javascr...
Labyrinth
view release on metacpan or search on metacpan
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
=item cleanup_tag
=item cleanup_close
=item cleanup_cdata
=item cleanup_no_number
=item check_url_valid
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
(?: </([a-z0-9]+)> ) |
(?: (.[^<]*) )
][
defined $1 ? cleanup_tag(lc $1, $2) :
defined $3 ? cleanup_close(lc $3) :
defined $4 ? cleanup_cdata($4) :
''
]igesx;
} else {
s[
(?: (<!--.if.*?endif.-->) ) |
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
(?: (.[^<]*) )
][
defined $1 ? $1 :
defined $2 ? cleanup_tag(lc $2, $3) :
defined $4 ? cleanup_close(lc $4) :
defined $5 ? cleanup_cdata($5) :
''
]igesx;
}
# Close anything that was left open
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
}
return $html;
}
sub cleanup_cdata {
local $_ = shift;
return $_ if(scalar @stack and $stack[0]{NAME} eq 'script');
s[ (?: & (
Language-Haskell
view release on metacpan or search on metacpan
hugs98-Nov2003/src/machugs/hugs.mcp.xml view on Meta::CPAN
<!-- Settings for "PPC CodeGen" panel -->
<SETTING><NAME>MWCodeGen_PPC_structalignment</NAME><VALUE>PPC</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_tracebacktables</NAME><VALUE>Inline</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_processor</NAME><VALUE>Generic</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_readonlystrings</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_tocdata</NAME><VALUE>1</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_profiler</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_fpcontract</NAME><VALUE>1</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_schedule</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_peephole</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_processorspecific</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_altivec</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_vectortocdata</NAME><VALUE>1</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_vrsave</NAME><VALUE>1</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_autovectorize</NAME><VALUE>0</VALUE></SETTING>
<SETTING><NAME>MWCodeGen_PPC_usebuiltins</NAME><VALUE>0</VALUE></SETTING>
<!-- Settings for "PPC Disassembler" panel -->
Lemonldap-NG-Portal
view release on metacpan or search on metacpan
site/htdocs/static/bwr/jquery/dist/jquery.js view on Meta::CPAN
// Contents
empty: function( elem ) {
// https://www.w3.org/TR/selectors/#empty-pseudo
// :empty is negated by element (1) or content nodes (text: 3; cdata: 4; entity ref: 5),
// but not by others (comment: 8; processing instruction: 7; etc.)
// nodeType < 6 works because attributes (2) do not appear as children
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeType < 6 ) {
return false;
Lingua-EN-SENNA
view release on metacpan or search on metacpan
lib/Lingua/EN/SENNA/third-party/senna/hash/ner.org.lst view on Meta::CPAN
dnb
dnc
dnc de
dnc de nederlanden
dnc de nederlanden compagnie
docdata
dockside
doema
dole
dole food
dole food co
Lingua-EN-Segment
view release on metacpan or search on metacpan
share/count_1w.txt view on Meta::CPAN
dce 745105
watergate 745023
setbacks 744995
karan 744949
weathered 744944
cdata 744908
truffles 744901
kfc 744841
anno 744751
grandview 744729
kepler 744696
share/count_1w.txt view on Meta::CPAN
hepatology 280576
diz 280576
clm 280575
aimbot 280561
bystanders 280547
mcdata 280546
magn 280537
connotation 280510
minos 280507
bookable 280498
nutone 280496
share/count_1w.txt view on Meta::CPAN
archbold 136745
coalescence 136743
edmonson 136741
remitting 136738
gounod 136736
pcdata 136733
fluttered 136731
bkt 136726
untrustworthy 136721
pares 136717
efp 136714
share/count_1w.txt view on Meta::CPAN
isonzo 17003
hypnotik 17003
holsum 17003
hoity 17003
extenuation 17003
dynamicdata 17003
colonnaded 17003
borj 17003
blizzak 17003
tossin 17002
scanport 17002
share/count_1w.txt view on Meta::CPAN
firststep 16304
emona 16304
canella 16304
weideman 16303
unbraked 16303
syncdata 16303
sauteing 16303
picbasic 16303
objitem 16303
meriones 16303
libaegis 16303
Lingua-TT
view release on metacpan or search on metacpan
tt-wd-errors.perl view on Meta::CPAN
##-- vars: token frequency
our %tc = qw(); ##-- %tc = ("$tag $class" => \%data, ...) ##-- errors only
## + %data = (freq=>$tc_freq, words=>{$w=>$w_freq, ...})
our $N = 0; ##-- $N = $total_freq;
our $Nerr = 0; ##-- $Nerr = $error_freq; ##-- == sum($tcdata{$_}{freq})
our $Nempty = 0; ##-- $Nempty = $total_empty_class_freq
##-- load mooteval output
foreach $infile (@ARGV) {
Linux-USBKeyboard
view release on metacpan or search on metacpan
toys/barcode.pl view on Meta::CPAN
#!/usr/bin/perl
# Copyright 2008 Eric L. Wilhelm, all rights reserved
# Read barcode scanner and lookup at upcdatabase.com.
use warnings;
use strict;
use Linux::USBKeyboard;
toys/barcode.pl view on Meta::CPAN
$#args ? @args[0,1] : split(/:/, $args[0]));
$product or die "bah";
my $kb = Linux::USBKeyboard->open($vendor, $product);
my $base_url = 'http://www.upcdatabase.com/item/';
while(my $barcode = <$kb>) {
chomp($barcode);
unless(fork) {
close(STDIN); close(STDERR); close(STDOUT);
Locale-Maketext-Lexicon
view release on metacpan or search on metacpan
lib/Locale/Maketext/Extract/Plugin/TextTemplate.pm view on Meta::CPAN
package Locale::Maketext::Extract::Plugin::TextTemplate::Parser;
$Locale::Maketext::Extract::Plugin::TextTemplate::Parser::VERSION = '1.00';
our @ISA = 'HTML::Parser';
*{'text'} = sub {
my ( $self, $str, $is_cdata ) = @_;
my $sentences = Lingua::EN::Sentence::get_sentences($str)
or return;
$str =~ s/\n/ /g;
$str =~ s/^\s+//;
$str =~ s/\s+$//;
Log-Any-Plugin
view release on metacpan or search on metacpan
-remove = PodVersion
[Git::Contributors]
remove = Stephen Thirlwall
remove = kamal.advani@strategicdata.com.au ; duplicate
[CopyrightYearFromGit]
regex = ^release-\d+\.\d+$
[AutoPrereqs]
Log-Dispatch-Gelf
view release on metacpan or search on metacpan
"web" : "https://github.com/JaSei/log-dispatch-gelf"
}
},
"version" : "1.4.0",
"x_contributors" : [
"Adam Clarke <adam.clarke@strategicdata.com.au>",
"Anton Fedotov <tosha.fedotov.2000@gmail.com>",
"Jan Seidl <jan.seidl@avast.com>",
"Jan Seidl <janseidl@volny.cz>",
"Jan Seidl <seidl@avast.com>",
"MohelnÃková Lucie <mohelnikova@avast.com>",
Log-Log4perl
view release on metacpan or search on metacpan
t/039XML-DOM2.t view on Meta::CPAN
<param name="port" value="5222"/>
<param name="resource" value="logger"/>
<param name="username" value="bobjones"/>
</param-nested>
<param name="to" value="bob\@a.jabber.server"/>
<param-text name="to">\${topcdata}</param-text>
<layout class="Log::Log4perl::Layout::SimpleLayout"/>
</log4perl:appender>
<log4perl:appender name="DBAppndr2" class="Log::Log4perl::Appender::DBI">
<param name="warp_message" value="0"/>
t/039XML-DOM2.t view on Meta::CPAN
$ENV{paramnestedname} = 'login';
$ENV{hostname} = 'hostname';
$ENV{hostnameval} = 'a.jabber.server';
$ENV{password} = 'password';
$ENV{passwordval} = '12345';
$ENV{topcdata} = 'mary@another.jabber.server';
$ENV{tablename} = $table_name;
$ENV{cspecname} = 'G';
$ENV{perlcode} = 'return "UID $< GID $(";';
my $varsubstdata = Log::Log4perl::Config::config_read(\$varsubstconfig);
( run in 0.498 second using v1.01-cache-2.11-cpan-454fe037f31 )