Result:
found 674 distributions and 1899 files matching your query !
( run in 0.530 )
Data-Edit-Xml
view release on metacpan or search on metacpan
lib/Data/Edit/Xml.pm view on Meta::CPAN
my $x = bless {}; # Create empty L<XML> editor
$x->parser = $x; # Parser root node
$x # Parser
}
sub cdata() # The name of the tag to be used to represent text - this tag must not also be used as a command tag otherwise the parser will L<confess>.
{'CDATA'
}
sub reduceParseErroMessage($) #P Reduce the parse failure message to the bare essentials.
{my ($e) = @_; # Error message
lib/Data/Edit/Xml.pm view on Meta::CPAN
sub tree($$) #P Build a tree representation of the parsed L<XML> which can be easily traversed to look for things.
{my ($parent, $parse) = @_; # The parent node, the remaining parse
while(@$parse)
{my $tag = shift @$parse; # Tag for node
my $node = bless {parser=>$parent->parser}; # New node
if ($tag eq cdata)
{confess cdata.' tag encountered'; # We use this tag for text and so it cannot be used as a user tag in the document
}
elsif ($tag eq '0') # Text
{my $s = shift @$parse;
if ($s !~ /\A\s*\Z/) # Ignore entirely blank strings
{$s = replaceSpecialChars($s); # Restore special characters in the text
$node->tag = cdata; # Save text. ASSUMPTION: CDATA is not used as a tag anywhere.
$node->text = $s;
push @{$parent->content}, $node; # Save on parents content list
}
}
else # Node
lib/Data/Edit/Xml.pm view on Meta::CPAN
sub newText($$) # Create a new text node.
{my (undef, $text) = @_; # Any reference to this package, content of new text node
my $node = bless {}; # New node
$node->parser = $node; # Root node of this parse
$node->tag = cdata; # Text node
$node->text = $text; # Content of node
$node # Return new non text node
}
sub newTag($$%) # Create a new non text node.
lib/Data/Edit/Xml.pm view on Meta::CPAN
sub indexNode($) #P Merge multiple text segments and set parent and parser after changes to a node
{my ($node) = @_; # Node to index.
return unless keys @{$node->{content}};
my @contents = @{$node->content}; # Contents of the node
# eval {grep {$_->{tag} eq cdata} @contents};
# $@ and confess "$@\n";
if ((grep {$_->{tag} eq cdata} @contents) > 1) # Make parsing easier for the user by concatenating successive text nodes - NB: this statement has been optimized
{my (@c, @t); # New content, pending intermediate texts list
for(@contents) # Each node under the current node
{if ($_->{tag} eq cdata) # Text node. NB: optimized
{push @t, $_; # Add the text node to pending intermediate texts list
}
elsif (@t == 1) # Non text element encountered with one pending intermediate text
{push @c, @t, $_; # Save the text node and the latest non text node
@t = (); # Empty pending intermediate texts list
lib/Data/Edit/Xml.pm view on Meta::CPAN
number=>undef, # Number of the specified B<$node>, see L<findByNumber|/findByNumber>.
parent=>undef, # Parent node of the specified B<$node> or B<undef> if the L<parser|/parse> root node. See also L</Traversal> and L</Navigation>. Consider as read only.
parser=>undef, # L<Parser|/parse> details: the root node of a tree is the L<parser|/parse> node for that tree. Consider as read only.
representationLast=>undef, # The last representation set for this node by one of: L<setRepresentationAsTagsAndText|/setRepresentationAsTagsAndText>.
tag=>undef, # Tag name for the specified B<$node>, see also L</Traversal> and L</Navigation>. Consider as read only.
text=>undef, # Text of the specified B<$node> but only if it is a text node otherwise B<undef>, i.e. the tag is cdata() <=> L</isText> is true.
);
#D2 Parse tree # Construct a L<parse|/parse> tree from another L<parse|/parse> tree.
sub renew($@) #C Returns a renewed copy of the L<parse|/parse> tree by first printing it and then re-parsing it, optionally checking that the starting node is in a specified context: u...
lib/Data/Edit/Xml.pm view on Meta::CPAN
$depth //= 0; # Start depth if none supplied
if ($node->isText) # Text node
{my $n = $node->next;
my $s = !defined($n) || $n->isText ? '' : "\n"; # Add a new line after contiguous blocks of text to offset next node
return '<'.cdata.'>'.$node->text.'</'.cdata.'>'.$s;
}
my $t = $node->tag; # Not text so it has a tag
my $content = $node->content; # Sub nodes
my $space = " "x($depth//0);
lib/Data/Edit/Xml.pm view on Meta::CPAN
#D2 Dense # Print the L<parse|/parse> tree densely for reuse by computers rather than humans.
sub string($) #U Return a dense string representing a node of a L<parse|/parse> tree and all the nodes below it. Or use L<-s|/opString> B<$node>.
{my ($node) = @_; # Start node.
return $node->{text} if $node->{tag} eq cdata; # Text node
my $content = $node->content; # Sub nodes
my $attr = keys %{$node->{attributes}}; # Number of attributes
return '<'.$node->{tag}. '/>'
if !@$content and !keys %{$node->{attributes}}; # No sub nodes or attributes
return '<'.$node->{tag}.$node->printAttributes.'/>'
if !@$content; # No sub nodes
join '', '<', $node->{tag}, $node->printAttributes, '>', # Has sub nodes
(map {$_->{tag} eq cdata ? $_->{text} : $_->string} @$content), # Recurse to get the sub content
'</', $node->{tag}, '>'
}
sub stringAsMd5Sum($) #U Return the L<md5> of the dense L<string|/string> representing a node of a L<parse|/parse> tree minus its L<id> and all the nodes below it. Or use L<-g|/opString> B<$no...
{my ($node) = @_; # Node.
lib/Data/Edit/Xml.pm view on Meta::CPAN
}
sub cText($) #U Return an array of all the text nodes immediately below the specified B<$node>.
{my ($node) = @_; # Node.
reindexNode($node); # Create index for this node
$node->c(cdata); # Index for text data
}
sub findById($$) #U Find a node in the parse tree under the specified B<$node> with the specified B<$id>.
{my ($node, $id) = @_; # Parse tree, id desired.
my $i; # Node found
lib/Data/Edit/Xml.pm view on Meta::CPAN
{my ($node, @context) = @_; # Node to test, optional context
if (@context) # Optionally check context
{my $p = $node->parent; # Parent
return undef if !$p or !$p->at(@context); # Parent must match context
}
$node->tag eq cdata ? $node : undef
}
sub isFirstText($@) #UCY Return the specified B<$node> if the specified B<$node> is a text node, the first node under its parent and that the parent is optionally in the specified context, e...
{my ($node, @context) = @_; # Node to test, optional context for parent
return undef unless $node->isText(@context) and $node->isFirst; # Check that this node is a text node, that it is first, and, optionally check context of parent
lib/Data/Edit/Xml.pm view on Meta::CPAN
This is a static method and so should either be imported or invoked as:
Data::Edit::Xml::new
=head3 cdata()
The name of the tag to be used to represent text - this tag must not also be used as a command tag otherwise the parser will L<confess|http://perldoc.perl.org/Carp.html#SYNOPSIS/>.
B<Example:>
ok Data::Edit::Xml::cdata eq q(CDATA); # ð—˜ð˜…ð—®ð—ºð—½ð—¹ð—²
=head3 parse($parser)
lib/Data/Edit/Xml.pm view on Meta::CPAN
Tag name for the specified B<$node>, see also L</Traversal> and L</Navigation>. Consider as read only.
=head4 text
Text of the specified B<$node> but only if it is a text node otherwise B<undef>, i.e. the tag is cdata() <=> L</isText> is true.
=head4 type
Attribute B<type> for a node as an L<lvalue method|http://perldoc.perl.org/perlsub.html#Lvalue-subroutines> B<sub>. Use B<typeX()> to return B<q()> rather than B<undef>.
lib/Data/Edit/Xml.pm view on Meta::CPAN
59 L<byX22|/byX22> - Post-order traversal of a L<parse|/parse> tree or sub tree calling the specified B<sub> within L<eval|http://perldoc.perl.org/functions/eval.html>B<{}> at each node and returning the specified starting node.
60 L<c|/c> - Return an array of all the nodes with the specified tag below the specified B<$node>.
61 L<cdata|/cdata> - The name of the tag to be used to represent text - this tag must not also be used as a command tag otherwise the parser will L<confess|http://perldoc.perl.org/Carp.html#SYNOPSIS/>.
62 L<change|/change> - Change the name of the specified B<$node>, optionally confirming that the B<$node> is in a specified context and return the B<$node>.
63 L<changeAttr|/changeAttr> - Rename attribute B<$old> to B<$new> in the specified B<$node> with optional context B<@context> unless attribute B<$new> is already set and return the B<$node>.
lib/Data/Edit/Xml.pm view on Meta::CPAN
ok $c->upUntil__number == 8;
ok $c->upUntil_b_c__number == 4;
}
if (1) {
ok Data::Edit::Xml::cdata eq q(CDATA); #Tcdata
ok Data::Edit::Xml::replaceSpecialChars(q(<">)) eq q(<">); #TreplaceSpecialChars
ok Data::Edit::Xml::undoSpecialChars(q(<">)) eq q(<">); #TundoSpecialChars
}
if (1) { # Break in and out
Data-HTML-TreeDumper
view release on metacpan or search on metacpan
lib/Data/HTML/TreeDumper.pm view on Meta::CPAN
my $name = $self->_normalizeName( $x, shift );
my $depth = shift || 0;
return $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassValue(), },
cdata => encode_entities($x),
);
}
sub _dumpArray {
my $self = shift;
lib/Data/HTML/TreeDumper.pm view on Meta::CPAN
my $depth = shift || 0;
if ( $depth > $self->MaxDepth() ) {
return $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassKey(), },
cdata => encode_entities($name),
)
. ': '
. $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassValue(), },
cdata => '[...]',
);
}
my $inner = [ map { { tag => 'li', cdata => $self->dump( $_, undef, $depth ) } } @{$x} ];
return $autoTag->tag(
tag => 'details',
cdata => [
{ tag => 'summary',
attr => { class => $self->ClassKey(), },
cdata => encode_entities($name),
},
{ tag => 'ol',
attr => { class => $self->ClassOrderedList(), start => $self->StartOrderedList() },
cdata => $inner,
},
],
);
}
lib/Data/HTML/TreeDumper.pm view on Meta::CPAN
my $depth = shift || 0;
if ( $depth > $self->MaxDepth() ) {
return $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassKey(), },
cdata => encode_entities($name),
)
. ': '
. $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassValue(), },
cdata => '{...}',
);
}
my $inner = [
map {
is_arrayref( $x->{$_} )
? { tag => 'li', cdata => $self->_dumpArray( $x->{$_}, $_, $depth + 1 ) }
: is_hashref( $x->{$_} )
? { tag => 'li', cdata => $self->_dumpHash( $x->{$_}, $_, $depth + 1 ) }
: {
tag => 'li',
cdata => $autoTag->tag(
tag => 'span',
attr => { class => $self->ClassKey(), },
cdata => encode_entities($_)
)
. ': '
. $self->dump( $x->{$_}, $_, $depth + 1 )
}
} sort( keys( %{$x} ) )
];
return $autoTag->tag(
tag => 'details',
cdata => [
{ tag => 'summary',
attr => { class => $self->ClassKey(), },
cdata => encode_entities($name),
},
{ tag => 'ul',
attr => { class => $self->ClassUnorderedList(), },
cdata => $inner,
},
],
);
}
Data-MATFile
view release on metacpan or search on metacpan
lib/Data/MATFile.pm view on Meta::CPAN
if ($obj->{eof}) {
return undef;
}
if ($type == miCOMPRESSED) {
# print "Oh, you have $n_bytes of data.\n";
my $cdata = $obj->read_bytes ($n_bytes);
my $uncdata = gunzip ($cdata);
$obj->set_data ($uncdata);
# print "Read again as uncompressed.\n";
my $value = $obj->read_object ();
$obj->set_data (undef);
return $value;
}
Data-Shark
view release on metacpan or search on metacpan
lib/Data/Shark/DIO.pm view on Meta::CPAN
if ($in_keys) {
foreach my $k (@{ $in_keys }{ sort {$a <=> $b} keys %{ $in_keys } }) {
$stmt .= ' $hkey .= $args->{\'' . $k->{'name'} . '\'};' . "\n" if $k->{'name'};
}
}
$stmt .= ' my $cdata = $' . $c_tag . '->get($hkey);' . "\n";
$stmt .= 'if ($cdata) { ' . $pstmt . '}' . "\n" if $profile;
$stmt .= ' return $cdata if $cdata;' . "\n";
}
$stmt .= ' my $dbi = ' . $config->{'dbi_func'} . ';' . "\n";
$stmt .= ' my $sth;' . "\n\n";
# process input
Data-Stag
view release on metacpan or search on metacpan
Data/Stag/BaseHandler.pm view on Meta::CPAN
if (@{$self->{is_nonterminal_stack}} > 1) {
$self->{is_nonterminal_stack}->[-2] = 1;
}
# check if we need an event
# for any preceeding pcdata
my $str = $self->{__str};
if (defined $str) {
# mixed attribute text - use element '.'
$str =~ s/^\s*//;
$str =~ s/\s*$//;
Data-Turtle
view release on metacpan or search on metacpan
eg/synopsis-svg view on Meta::CPAN
my $svg = SVG->new(
width => $width,
height => $height,
);
$svg->title()->cdata('Data::Turtle');
my $style = $svg->group(
id => 'style-group',
style => {
stroke => $stroke,
Data-Validate-XSD
view release on metacpan or search on metacpan
lib/Data/Validate/XSD/ParseXML.pm view on Meta::CPAN
$self->{'parent'} = $self->{'parents'}->[$#{$self->{'parents'}}];
}
=head2 $parser->characters()
Handle part of a cdata by concatination
=cut
sub characters
{
my ($self, $text) = @_;
Data-iRealPro
view release on metacpan or search on metacpan
lib/Data/iRealPro/Input/MusicXML.pm view on Meta::CPAN
sub encode {
my ( $self, $xml ) = @_;
$self->{transpose} //= 0;
my $parser = XML::LibXML->new;
my $opts = { no_cdata => 1 };
if ( $self->{catalog} && -r $self->{catalog} ) {
$parser->load_catalog( $self->{catalog} );
}
else {
$opts->{load_ext_dtd} = 0;
DateTimeX-Fiscal-Fiscal5253
view release on metacpan or search on metacpan
lib/DateTimeX/Fiscal/Fiscal5253.pm view on Meta::CPAN
$args{style} ||= $self->{style};
croak 'Unknown parameter present' if scalar( keys(%args) ) > 1;
my $cal = &{$_valid_cal_style}( $args{style} );
my %cdata;
for (qw( style year start end weeks )) {
$cdata{$_} = $self->{"_$cal"}->{summary}->{$_};
}
return wantarray ? %cdata : \%cdata;
}
sub contains {
my $self = shift;
my %args = @_ == 1 ? ( date => shift ) : @_;
lib/DateTimeX/Fiscal/Fiscal5253.pm view on Meta::CPAN
# _str2dt will croak on error
my $date = &{$_str2dt}( $args{date} )->ymd;
my $whash = $self->{"_${cal}_weeks"};
my $cdata = $self->{"_$cal"}->{summary};
# it is NOT an error if the date isn't in the calendar,
# so return undef to differentiate this from an error condition
return if $date lt $cdata->{start} || $date gt $cdata->{end};
# since the date is in the calendar, let's return it's week,
# and optionally, a structure with period and week number.
my $w;
for ( $w = 1 ; $date gt $whash->{$w}->{end} ; $w++ ) {
# this should NEVER fire!
croak 'FATAL ERROR! RAN OUT OF WEEKS' if $w > $cdata->{weeks};
}
my $p = $whash->{$w}->{period};
return wantarray ? ( period => $p, week => $w ) : $w;
}
Debarnacle
view release on metacpan or search on metacpan
# sgml catalogs and things
/etc/sgml/*.cat
/etc/sgml/*.cat.old
/etc/sgml/catalog
/etc/sgml/catalog.old
/etc/sgml/cdata_wrapper.config
/etc/sgml/docbook-xml/dbgenent.mod
/usr/lib/sgml/*.cat
/usr/lib/sgml/*.cat.old
# pidfiles and run directories
Deliantra-Client
view release on metacpan or search on metacpan
DC/Protocol.pm view on Meta::CPAN
my $data = $self->{map}->get_rect ($x, $y, $w, $h);
if ($data ne $$rdata) {
$map_info->[1] = \$data;
my $cdata = Compress::LZF::compress $data;
DC::DB::put $self->{mapcache} => $hash => $cdata, sub { };
}
}
}
sub map_clear {
Devel-Tokenizer-C
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile(
NAME => 'Devel::Tokenizer::C',
VERSION_FROM => 'lib/Devel/Tokenizer/C.pm',
PREREQ_PM => \%prereq,
realclean => { FILES => 'dtcrun dtcrun.c dtcrun.exe dtcdata' },
CONFIGURE => \&configure,
);
sub configure
{
Device-Firmata
view release on metacpan or search on metacpan
examples/example-i2c.pl view on Meta::CPAN
$device->poll();
select(undef,undef,undef,0.1);
}
sub onI2CMessage {
my $i2cdata = shift;
my $address = $i2cdata->{address};
my $register = $i2cdata->{register};
my $data = $i2cdata->{data};
my @days = ('Sun','Mon','Tue','Wed','Thi','Fri','Sat');
my $second = shift @$data;
my $minute = shift @$data;
DiaColloDB-WWW
view release on metacpan or search on metacpan
share/htdocs/diacollo.js view on Meta::CPAN
$(".rawURL").hide();
$("#profileDataChart").addClass("gmChart").fadeIn();
//-- setup chart data
var cstate = '{}'; //-- chart state
var cdata = new google.visualization.DataTable();
cdata.addColumn('string', data.titles.join('/')); //-- 1st column must be item type
cdata.addColumn('number', 'year'); //-- 2nd column must be date ('number' => year)
if (isDiff) {
//-- motion chart: diff
cdata.addColumn('number', 'ascore');
cdata.addColumn('number', 'bscore');
cdata.addColumn('number', 'diff');
data.profiles.forEach(function(p) {
var year = Number(String(p.label).replace(/^0-/,'').replace(/-.*$/,''));
var scoref = p.score;
for (var key in p[scoref]) {
var item = key.replace(/\t/g,'/');
cdata.addRow([item, year, p.prf1[scoref][key], p.prf2[scoref][key], p[scoref][key]]);
}
});
cstate = '{"showTrails":false}';
}
else {
//-- motion chart: profile
cdata.addColumn('number', 'f2');
cdata.addColumn('number', 'f12');
cdata.addColumn('number', 'score');
data.profiles.forEach(function(p) {
var year = Number(p.label);
var scoref = p.score;
for (var key in p[scoref]) {
var item = key.replace(/\t/g,'/');
cdata.addRow([item, year, p.f2[key], p.f12[key], p[scoref][key]]);
}
});
cstate = '{"showTrails":false,"xLambda":0,"yLambda":0}';
}
//-- plot the chart
var chart = new google.visualization.MotionChart(document.getElementById('profileDataChart'));
chart.draw(cdata, {width:600, height:480, state:cstate});
}
//----------------------------------------------------------------------
var hitem2key = {};
function dcpFormatHiChart(data, jqXHR) {
share/htdocs/diacollo.js view on Meta::CPAN
//-- hichart: enable "download" icon
$("#d3icons > a").hide();
$("#profileDataD3, #d3icons, #exportBtn").fadeIn();
//-- setup plot data
var cdata = { //-- chart data
chart: {
type: (user_query.debug ? 'line' : 'spline'),
zoomType: 'x'
},
credits: {
share/htdocs/diacollo.js view on Meta::CPAN
item.hiseries = { name:item.label, data:[] };
for (var di in dlabels) {
score = item.score[di];
item.hiseries.data.push({x:Number(String(dlabels[di]).replace(/-/g,".")), y:(score==null ? null : score), label:dlabels[di]});
}
cdata.series.push(item.hiseries);
});
//-- setup plot area
$(".rawURL").hide();
$("#profileDataChart").addClass("hcParent").show();
//-- plot the chart
$("#profileDataChart").addClass("hcChart").highcharts(cdata).show();
dcpClearMsg();
}
//----------------------------------------------------------------------
// str = chartTitleString(prefix,parens)
Dist-Zilla-PluginBundle-Author-TABULO
view release on metacpan or search on metacpan
Notes/cpan-namespaces/cpan-namespaces-L1-L3.txt view on Meta::CPAN
Syndication::NITF::dellist
Syndication::NITF::denom
Syndication::NITF::distributor
Syndication::NITF::dl
Syndication::NITF::doccopyright
Syndication::NITF::docdata
Syndication::NITF::docid
Syndication::NITF::docrights
Syndication::NITF::docscope
Syndication::NITF::ds
Syndication::NITF::dt
Notes/cpan-namespaces/cpan-namespaces-L1-L3.txt view on Meta::CPAN
XML::Generator::RFC822
XML::Generator::RSS10
XML::Generator::SVG
XML::Generator::Win32OLETypeLib
XML::Generator::XMPP
XML::Generator::cdata
XML::Generator::comment
XML::Generator::final
XML::Generator::overload
XML::Generator::pi
XML::Generator::pretty
Dpkg
view release on metacpan or search on metacpan
lib/Dpkg/Control/Info.pm view on Meta::CPAN
=cut
sub parse {
my ($self, $fh, $desc) = @_;
$self->reset();
my $cdata = Dpkg::Control->new(type => CTRL_TMPL_SRC);
return if not $cdata->parse($fh, $desc);
$self->{source} = $cdata;
unless (exists $cdata->{Source}) {
$cdata->parse_error($desc, g_("first stanza lacks a '%s' field"),
'Source');
}
while (1) {
$cdata = Dpkg::Control->new(type => CTRL_TMPL_PKG);
last if not $cdata->parse($fh, $desc);
push @{$self->{packages}}, $cdata;
unless (exists $cdata->{Package}) {
$cdata->parse_error($desc, g_("stanza lacks the '%s' field"),
'Package');
}
unless (exists $cdata->{Architecture}) {
$cdata->parse_error($desc, g_("stanza lacks the '%s' field"),
'Architecture');
}
}
}
EBook-Ishmael
view release on metacpan or search on metacpan
lib/EBook/Ishmael/EBook/Mobi.pm view on Meta::CPAN
my $icount = $idxhdr->{count};
my $roff = 0;
my $off = $idx + $icount + 1;
for my $i (0 .. $idxhdr->{nctoc} - 1) {
my $cdata = $self->{_pdb}->record($off + $i)->data;
my $ctocdict = $self->_read_ctoc(\$cdata);
for my $j (sort keys %$ctocdict) {
$ctoc->{ $j + $roff } = $ctocdict->{ $j };
}
$roff += 0x10000;
}
EBook-Tools
view release on metacpan or search on metacpan
lib/EBook/Tools/IMP.pm view on Meta::CPAN
my $fh_imp;
my $headerdata;
my $bookpropdata;
my $retval;
my $toc_size;
my $tocdata;
my $entrydata;
my $resource; # Hashref
if(! -f $filename)
lib/EBook/Tools/IMP.pm view on Meta::CPAN
debug(1,"DEBUG: resource directory = '",$self->{resdirname},"'");
if($self->{version} == 1)
{
$toc_size = 10 * $self->{filecount};
sysread($fh_imp,$tocdata,$toc_size)
or croak($subname,"(): unable to read TOC data!\n");
$self->parse_imp_toc_v1($tocdata);
$self->{resources} = ();
foreach my $entry (@{$self->{toc}})
{
sysread($fh_imp,$entrydata,$entry->{size}+10);
lib/EBook/Tools/IMP.pm view on Meta::CPAN
}
}
elsif($self->{version} == 2)
{
$toc_size = 20 * $self->{filecount};
sysread($fh_imp,$tocdata,$toc_size)
or croak($subname,"(): unable to read TOC data!\n");
$self->parse_imp_toc_v2($tocdata);
$self->{resources} = ();
foreach my $entry (@{$self->{toc}})
{
sysread($fh_imp,$entrydata,$entry->{size}+20);
lib/EBook/Tools/IMP.pm view on Meta::CPAN
my $self = shift;
my $subname = (caller(0))[3];
croak($subname . "() called as a procedure!\n") unless(ref $self);
debug(2,"DEBUG[",$subname,"]");
my $tocdata;
if(!$self->{version})
{
carp($subname,"():\n",
" no version information found (did you load a file first?)\n");
lib/EBook/Tools/IMP.pm view on Meta::CPAN
foreach my $entry (@{$self->{toc}})
{
if($self->{version} == 1)
{
$tocdata .= pack('a[4]nN',
$entry->{name},
$entry->{unknown1},
$entry->{size});
}
elsif($self->{version} == 2)
{
$tocdata .= pack('a[4]NNa[4]N',
$entry->{name},
$entry->{unknown1},
$entry->{size},
$entry->{type},
$entry->{unknown2});
}
}
if(!length($tocdata))
{
carp($subname,"(): no valid TOC data produced!\n");
return;
}
return $tocdata;
}
=head2 C<resdirbase()>
lib/EBook/Tools/IMP.pm view on Meta::CPAN
return;
}
my $headerdata = $self->pack_imp_header();
my $bookpropdata = $self->pack_imp_book_properties();
my $tocdata = $self->pack_imp_toc;
if(not $headerdata or length($headerdata) != 48)
{
carp($subname,"(): invalid header data!\n");
return;
lib/EBook/Tools/IMP.pm view on Meta::CPAN
if(!$bookpropdata)
{
carp($subname,"(): invalid book properties data!\n");
return;
}
if(!$tocdata)
{
carp($subname,"(): invalid table of contents data!\n");
return;
}
if(!$self->{resdirname})
lib/EBook/Tools/IMP.pm view on Meta::CPAN
}
print {*$fh_imp} $headerdata;
print {*$fh_imp} $bookpropdata;
print {*$fh_imp} $self->{resdirname};
print {*$fh_imp} $tocdata;
foreach my $tocentry (@{$self->{toc}})
{
print {*$fh_imp} ${$self->pack_imp_resource(type => $tocentry->{type})};
}
lib/EBook/Tools/IMP.pm view on Meta::CPAN
$self->{text} =~ s/\x16 .*? \x16//gx; # Kill footer
return $textlength;
}
=head2 C<parse_imp_toc_v1($tocdata)>
Takes as a single argument a string containing the table of contents
data, and parses it into object attributes following the version 1
format (10 bytes per entry).
lib/EBook/Tools/IMP.pm view on Meta::CPAN
=cut
sub parse_imp_toc_v1 :method
{
my ($self,$tocdata) = @_;
my $subname = (caller(0))[3];
croak($subname . "() called as a procedure!\n") unless(ref $self);
debug(2,"DEBUG[",$subname,"]");
my $length = length($tocdata);
my $lengthexpected = 10 * $self->{filecount};
my $tocentrydata;
my $offset = 0;
if($self->{version} != 1)
lib/EBook/Tools/IMP.pm view on Meta::CPAN
$self->{toc} = ();
foreach my $index (0 .. $self->{filecount} - 1)
{
my %tocentry;
my @list;
$tocentrydata = substr($tocdata,$offset,10);
@list = unpack('a[4]nN',$tocentrydata);
$tocentry{name} = $list[0];
$tocentry{unknown1} = $list[1];
$tocentry{size} = $list[2];
lib/EBook/Tools/IMP.pm view on Meta::CPAN
return 1;
}
=head2 C<parse_imp_toc_v2($tocdata)>
Takes as a single argument a string containing the table of contents
data, and parses it into object attributes following the version 2
format (20 bytes per entry).
lib/EBook/Tools/IMP.pm view on Meta::CPAN
=cut
sub parse_imp_toc_v2 :method
{
my ($self,$tocdata) = @_;
my $subname = (caller(0))[3];
croak($subname . "() called as a procedure!\n") unless(ref $self);
debug(2,"DEBUG[",$subname,"]");
my $length = length($tocdata);
my $lengthexpected = 20 * $self->{filecount};
my $template;
my $tocentrydata;
my $offset = 0;
lib/EBook/Tools/IMP.pm view on Meta::CPAN
$self->{toc} = ();
foreach my $index (0 .. $self->{filecount} - 1)
{
my %tocentry;
my @list;
$tocentrydata = substr($tocdata,$offset,20);
@list = unpack('a[4]NNa[4]N',$tocentrydata);
$tocentry{name} = $list[0];
$tocentry{unknown1} = $list[1];
$tocentry{size} = $list[2];
EdgeExpressDB
view release on metacpan or search on metacpan
www/edgeexpress/jscript/SpryAssets/SpryXML.js view on Meta::CPAN
Spry.XML.XObject.prototype._value = function()
{
var val = this["#text"];
if (val != undefined)
return val;
return this["#cdata-section"];
};
Spry.XML.XObject.prototype._hasValue = function()
{
return this._value() != undefined;
www/edgeexpress/jscript/SpryAssets/SpryXML.js view on Meta::CPAN
return this["#text"] != undefined;
};
Spry.XML.XObject.prototype._valueIsCData = function()
{
return this["#cdata-section"] != undefined;
};
Spry.XML.XObject.prototype._propertyIsArray = function(prop)
{
var val = this[prop];
www/edgeexpress/jscript/SpryAssets/SpryXML.js view on Meta::CPAN
// @id: "1000",
// name: { "#text": "John Doe" }
// },
// {
// @id: "2000",
// name: { "#cdata-section": "Jane Smith" }
// }
// ]
// }
// }
EekBoek
view release on metacpan or search on metacpan
lib/EB/Report/Journal.pm view on Meta::CPAN
bsk => { indent => 2 },
};
my $stylesheet = {
data => $style_data,
cdata => $style_data,
ddata => $style_data,
total => {
_style => { line_before => 1 },
# desc => { excess => 2 },
},
Email-Stuffer
view release on metacpan or search on metacpan
lib/Email/Stuffer.pm view on Meta::CPAN
Ross Attrill <ross.attrill@gmail.com>
=item *
Russell Jenkins <russell.jenkins@strategicdata.com.au>
=item *
Shawn Sorichetti <shawn@coloredblocks.com>
Embedix-ECD
view release on metacpan or search on metacpan
lib/Embedix/ECD/XMLv1.pm view on Meta::CPAN
}
print "</$tag>\n";
};
# pcdata
#_______________________________________
push @handler, 'Char', sub {
my $xp = shift;
print "char $_[0]\n";
};
Embperl
view release on metacpan or search on metacpan
Embperl/Form/Control.pm view on Meta::CPAN
sub get_value
{
my ($self, $req) = @_ ;
my $fdat = $req -> {docdata} || \%Embperl::fdat ;
my $name = $self -> {srcname} || $self -> {force_name} || $self -> {name} ;
return $fdat -> {$name} ;
my $dataprefix = $self -> {dataprefix} ;
return $fdat -> {$name} if (!$dataprefix) ;
Erlang-Parser
view release on metacpan or search on metacpan
<<_:O/binary, "<!--", _/binary>> ->
tokenize_comment(B, ?ADV_COL(S, 4));
<<_:O/binary, "<!DOCTYPE", _/binary>> ->
tokenize_doctype(B, ?ADV_COL(S, 10));
<<_:O/binary, "<![CDATA[", _/binary>> ->
tokenize_cdata(B, ?ADV_COL(S, 9));
<<_:O/binary, "<?php", _/binary>> ->
{Body, S1} = raw_qgt(B, ?ADV_COL(S, 2)),
{{pi, Body}, S1};
<<_:O/binary, "<?", _/binary>> ->
{Tag, S1} = tokenize_literal(B, ?ADV_COL(S, 2)),
tokenize_word(Bin, S1, Quote, [Data | Acc]);
<<_:O/binary, C, _/binary>> ->
tokenize_word(Bin, ?INC_CHAR(S, C), Quote, [C | Acc])
end.
tokenize_cdata(Bin, S=#decoder{offset=O}) ->
tokenize_cdata(Bin, S, O).
tokenize_cdata(Bin, S=#decoder{offset=O}, Start) ->
case Bin of
<<_:O/binary, "]]>", _/binary>> ->
Len = O - Start,
<<_:Start/binary, Raw:Len/binary, _/binary>> = Bin,
{{data, Raw, false}, ?ADV_COL(S, 3)};
<<_:O/binary, C, _/binary>> ->
tokenize_cdata(Bin, ?INC_CHAR(S, C), Start);
_ ->
<<_:O/binary, Raw/binary>> = Bin,
{{data, Raw, false}, S}
end.
ExtUtils-MakeMaker
view release on metacpan or search on metacpan
lib/ExtUtils/MM_NW5.pm view on Meta::CPAN
if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) {
(my $xdc = $exportlist) =~ s#def\z#xdc#;
$xdc = '$(BASEEXT).xdc';
push @m, sprintf <<'MAKE_FRAG', $xdc, $exportlist;
$(MPKTOOL) $(XDCFLAGS) %s
$(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> %s
MAKE_FRAG
}
# Reconstruct the X.Y.Z version.
my $version = join '.', map { sprintf "%d", $_ }
"$]" =~ /(\d)\.(\d{3})(\d{2})/;
ExtUtils-XSBuilder
view release on metacpan or search on metacpan
xsbuilder.osc2002.pod view on Meta::CPAN
<dav_xml_elem>
name
ns
lang
first_cdata
following_cdata
parent
next
first_child
attr
last_child
Farabi
view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/codemirror/mode/tiki/tiki.js view on Meta::CPAN
}
if (err) setStyle = "error";
return cont(endcloseplugin(err));
}
else if (type == "string") {
if (!curState.context || curState.context.name != "!cdata") pushContext("!cdata");
if (curState.tokenize == inText) popContext();
return cont();
}
else return cont();
}
File-Extension
view release on metacpan or search on metacpan
lib/File/Extension.pm view on Meta::CPAN
'xcappdata' => 'Xcode App Data File',
'xcarchive' => 'Xcode Archive',
'xccolortheme' => 'Xcode Color Theme File',
'xcconfig' => 'Xcode Configuration Settings File',
'xccrashpoint' => 'Xcode Crash Point File',
'xcdatamodel' => 'Xcode Core Data Model File',
'xcdatamodeld' => 'Xcode Core Data Model File',
'xcf' => 'GIMP Image File',
'xci' => 'Nintendo Switch Game Backup File',
'xcode' => 'Xcode Project',
'xcodeplugin' => 'Xcode Plug-in',
'xcodeproj' => 'Xcode Project',
File-Find-Rule-BOM
view release on metacpan or search on metacpan
t/data/UTF_16_bom view on Meta::CPAN
þÿ miscdata
File-KDBX
view release on metacpan or search on metacpan
lib/File/KDBX/KDF/Argon2.pm view on Meta::CPAN
sub parallelism { $_[0]->{+KDF_PARAM_ARGON2_PARALLELISM} //= KDF_DEFAULT_ARGON2_PARALLELISM }
sub memory { $_[0]->{+KDF_PARAM_ARGON2_MEMORY} //= KDF_DEFAULT_ARGON2_MEMORY }
sub iterations { $_[0]->{+KDF_PARAM_ARGON2_ITERATIONS} //= KDF_DEFAULT_ARGON2_ITERATIONS }
sub version { $_[0]->{+KDF_PARAM_ARGON2_VERSION} //= KDF_DEFAULT_ARGON2_VERSION }
sub secret { $_[0]->{+KDF_PARAM_ARGON2_SECRET} }
sub assocdata { $_[0]->{+KDF_PARAM_ARGON2_ASSOCDATA} }
sub init {
my $self = shift;
my %args = @_;
return $self->SUPER::init(
lib/File/KDBX/KDF/Argon2.pm view on Meta::CPAN
KDF_PARAM_ARGON2_PARALLELISM() => $args{+KDF_PARAM_ARGON2_PARALLELISM} // $args{parallelism},
KDF_PARAM_ARGON2_MEMORY() => $args{+KDF_PARAM_ARGON2_MEMORY} // $args{memory},
KDF_PARAM_ARGON2_ITERATIONS() => $args{+KDF_PARAM_ARGON2_ITERATIONS} // $args{iterations},
KDF_PARAM_ARGON2_VERSION() => $args{+KDF_PARAM_ARGON2_VERSION} // $args{version},
KDF_PARAM_ARGON2_SECRET() => $args{+KDF_PARAM_ARGON2_SECRET} // $args{secret},
KDF_PARAM_ARGON2_ASSOCDATA() => $args{+KDF_PARAM_ARGON2_ASSOCDATA} // $args{assocdata},
);
}
sub _transform {
my $self = shift;
lib/File/KDBX/KDF/Argon2.pm view on Meta::CPAN
=head2 version
=head2 secret
=head2 assocdata
Get various KDF parameters.
C<version>, C<secret> and C<assocdata> are currently unused.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website
L<https://github.com/chazmcgarvey/File-KDBX/issues>
( run in 0.530 second using v1.01-cache-2.11-cpan-454fe037f31 )