Result:
found 674 distributions and 1899 files matching your query !
( run in 0.697 )
Rinchi-XMLSchema
view release on metacpan or search on metacpan
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
'Start' => \&handle_start,
'End' => \&handle_end,
'Char' => \&handle_char,
'Proc' => \&handle_proc,
'Comment' => \&handle_comment,
'CdataStart' => \&handle_cdata_start,
'CdataEnd' => \&handle_cdata_end,
'Default' => \&handle_default,
'Unparsed' => \&handle_unparsed,
'Notation' => \&handle_notation,
'ExternEnt' => \&handle_extern_ent,
'ExternEntFin' => \&handle_extern_ent_fin,
lib/Rinchi/XMLSchema.pm view on Meta::CPAN
}
#=================================================================
# CdataStart (Expat)
sub handle_cdata_start() {
my ($expat) = @_;
}
#=================================================================
# CdataEnd (Expat)
sub handle_cdata_end() {
my ($expat) = @_;
}
#=================================================================
Robotics
view release on metacpan or search on metacpan
lib/Robotics/Tecan/Server.pm view on Meta::CPAN
Reuse => 1);
die "cant open network on port $port" unless $socket;
my $client;
my $hostinfo;
my $cdata;
print STDERR "Robotics::Tecan network server is ready on port $port.\n";
while ($client = $socket->accept()) {
$client->autoflush(1);
print $client "Welcome to $0\n";
$hostinfo = gethostbyaddr($client->peeraddr);
printf STDERR "\tConnect from %s on port $port\n",
$hostinfo ? $hostinfo->name : $client->peerhost;
# Cheap authentication
print $client "login:\n";
while ($cdata = <$client>) {
$cdata =~ s/\n\r\t\s//g;
last if ($cdata =~ /^$params{password}\b/);
print $client "login:\n";
print STDOUT "\t\t$cdata\n";
}
print $client "Authentication OK\n";
printf STDERR "\tAuthenticated %s on port $port\n",
$hostinfo ? $hostinfo->name : $client->peerhost;
Rosetta
view release on metacpan or search on metacpan
lib/Rosetta/TODO.pod view on Meta::CPAN
=item *
Implement starter Rosetta::Model module, which in its first post-rewrite
incarnation will resemble a limited XML DOM, having typed nodes with
attributes, but never having 'cdata' sections. Input checking will be kept
to a minimum initially, with Rosetta::Model assuming its input is correct;
eventually the input checking code will make up most of the mass of this
module, and most of that will be done on demand rather than automatically.
=item *
SGML-DTDParse
view release on metacpan or search on metacpan
lib/SGML/DTDParse.pm view on Meta::CPAN
inclusions?, exclusions?)>
<!ATTLIST element
name CDATA #REQUIRED
stagm CDATA #IMPLIED
etagm CDATA #IMPLIED
content-type (element|mixed|cdata|empty|rcdata) #IMPLIED
>
<!ENTITY % cm.mix "sequence-group|or-group|and-group
|element-name|parament-name
|pcdata|cdata|rcdata|empty">
<!ELEMENT content-model-expanded (%cm.mix;)>
<!ELEMENT content-model (%cm.mix;)>
<!ELEMENT inclusions (%cm.mix;)>
<!ELEMENT exclusions (%cm.mix;)>
lib/SGML/DTDParse.pm view on Meta::CPAN
<!ATTLIST parament-name
name CDATA #REQUIRED
>
<!ELEMENT empty EMPTY>
<!ELEMENT pcdata EMPTY>
<!ELEMENT cdata EMPTY>
<!ELEMENT rcdata EMPTY>
<!ELEMENT attlist (attdecl, attribute+)>
<!ATTLIST attlist
name CDATA #REQUIRED
>
SGML-Grove
view release on metacpan or search on metacpan
C<SGML::Entity> or C<SGML::ExtEntity> objects. C<attr> returns
C<undef> for implied attributes.
C<$element-E<gt>attr_as_string> returns the value of an attribute as a
string, possibly modified by C<$context>. (XXX undefined results if
the attribute is not cdata/sdata.)
C<$element-E<gt>attributes> returns a reference to a hash containing
the attributes of the element, or undef if there are no attributes
defined for for this element. The keys of the hash are the attribute
names and the values are as defined above.
C<children_accept>, and C<children_accept_gi>. For C<children_accept>
and C<children_accept_gi> (both), Element calls back with
S<C<$visitor-E<gt>visit_scalar($scalar[, ...])>>.
For C<as_string>, Element will use the string unless
C<$context-E<gt>{cdata_mapper}> is defined, in which case it returns the
result of calling the C<cdata_mapper> subroutine with the scalar and
the remaining arguments. The actual implementation is:
&{$context->{cdata_mapper}} ($scalar, @_);
=head1 AUTHOR
Ken MacLeod, ken@bitsko.slc.ut.us
my ($ii, @string);
for ($ii = 0; $ii <= $#{$value}; $ii ++) {
my $child = $value->[$ii];
if (!ref ($child)) {
my $context = shift;
if (defined ($context->{'cdata_mapper'})) {
push (@string, &{$context->{'cdata_mapper'}}($child, @_));
} else {
push (@string, $child);
}
} else {
push (@string, $child->as_string(@_));
my @string;
my $ii;
for ($ii = 0; $ii <= $#{$self->[0]}; $ii ++) {
my $child = $self->[0][$ii];
if (!ref ($child)) {
if (defined ($context->{'cdata_mapper'})) {
push (@string, &{$context->{'cdata_mapper'}}($child, @_));
} else {
push (@string, $child);
}
} else {
push (@string, $child->as_string($context, @_));
SGML-PYX
view release on metacpan or search on metacpan
# Doctype.
} elsif ($tag_type eq '!doctype') {
# Nop.
# CData.
} elsif ($tag_type eq '![cdata[') {
$data =~ s/^<!\[[cC][dD][aA][tT][aA]\[//ms;
$data =~ s/\]\]>$//ms;
$self->{'output'}->(char(decode(entity_decode($data))));
# Instruction.
SGML-Parser-OpenSP
view release on metacpan or search on metacpan
lib/SGML/Parser/OpenSP.pm view on Meta::CPAN
Warn about constructs that are not allowed by XML.
=item mixed
Warn about mixed content models that do not allow #pcdata anywhere.
=item sgmldecl
Warn about various dubious constructions in the SGML declaration.
lib/SGML/Parser/OpenSP.pm view on Meta::CPAN
=item exclusion
Warn about exclusions in element type declarations.
=item rcdata-content
Warn about RCDATA declared content in element type declarations.
=item cdata-content
Warn about CDATA declared content in element type declarations.
=item ps-comment
lib/SGML/Parser/OpenSP.pm view on Meta::CPAN
=item internal-sdata-entity
Warn about internal SDATA entities.
=item internal-cdata-entity
Warn about internal CDATA entities.
=item external-sdata-entity
Warn about external SDATA entities.
=item external-cdata-entity
Warn about external CDATA entities.
=item bracket-entity
lib/SGML/Parser/OpenSP.pm view on Meta::CPAN
=item temp-ms
Warn about TEMP marked sections.
=item rcdata-ms
Warn about RCDATA marked sections.
=item instance-include-ms
SGML-SPGroveBuilder
view release on metacpan or search on metacpan
SPGroveNew.cc view on Meta::CPAN
as_string(att_ptr->name), att_ptr->name.len,
token, 0);
}
}
break;
case Attribute::cdata:
{
AV *att_data = newAV();
size_t nCdataChunks = att_ptr->nCdataChunks;
const SGMLApplication::Attribute::CdataChunk *cdataChunk
= att_ptr->cdataChunks;
if (attributes == (HV*)&sv_undef) {
attributes = newHV();
}
// XXX we can optimize by using a C array and av_make instead of push
while (nCdataChunks-- > 0) {
SV *data = NULL;
if (cdataChunk->isSdata) {
SV *sdata_a[2];
sdata_a[0] = newSVpv(as_string(cdataChunk->data),
cdataChunk->data.len);
sdata_a[1] = newSVpv(as_string(cdataChunk->entityName),
cdataChunk->entityName.len);
AV *sdata = av_make(2, &sdata_a[0]);
SvREFCNT_dec (sdata_a[0]);
SvREFCNT_dec (sdata_a[1]);
data = newRV_noinc((SV*)sdata);
sv_bless (data, sdata_stash_);
} else if (!cdataChunk->isNonSgml) {
data = newSVpv(as_string(cdataChunk->data), cdataChunk->data.len);
} else {
// XXX we need to do better than this
fprintf (stderr, "SPGroveNew: isNonSGML in cdata attribute\n");
}
if (data != NULL) {
av_push (att_data, data);
}
cdataChunk ++;
}
hv_store (attributes,
as_string(att_ptr->name), att_ptr->name.len,
newRV_noinc((SV*)att_data), 0);
SPGroveNew.cc view on Meta::CPAN
hv_store(new_entity, "name", 4, newSVpv(name, entity->name.len), 0);
char *type = 0;
HV *stash;
switch (entity->dataType) {
case Entity::cdata: type = "CDATA"; stash = extentity_stash_; break;
case Entity::sdata: type = "SDATA"; stash = extentity_stash_; break;
case Entity::ndata: type = "NDATA"; stash = extentity_stash_; break;
case Entity::subdoc: stash = subdocentity_stash_; break;
default: {
av_push(errors_, newSVpv("SPGroveNew: data type not handled", 0));
SIAM
view release on metacpan or search on metacpan
* some attributes changed
0.05 2011-04-21
* Removed all attributes from the root object
* All SIAM attribute names are now prefixed with siam.*
* Replaced siam.svcdata.available with siam.object.complete
* set_condition(): a new method in SIAM::Object and in driver
* new method: get_objects_by_attribute in SIAM::Object
* new method: fetch_object_ids_by_attribute in driver
* new object class: SIAM::Device
SPVM-Eg
view release on metacpan or search on metacpan
lib/SPVM/Eg/Node/CDATASection.pm view on Meta::CPAN
This class is a port of L<CDATASection|https://developer.mozilla.org/en-US/docs/Web/API/CDATASection> in JavaScript.
=head1 Usage
my $cdata_section_node = Eg->document->create_cdata_section("Some Data");
=head1 Inheritance
L<Eg::Node::CharacterData|SPVM::Eg::Node::CharacterData>
SQL-Loader
view release on metacpan or search on metacpan
lib/SQL/Loader.pm view on Meta::CPAN
__END__
=head1 AUTHOR
Ben Hare for www.strategicdata.com.au
benhare@gmail.com
=head1 COPYRIGHT
SQL-Translator
view release on metacpan or search on metacpan
lib/SQL/Translator/Parser/DB2.pm view on Meta::CPAN
comments => $fdata->{'comments'},
) or die $table->error;
$table->primary_key($field->name) if $fdata->{'is_primary_key'};
for my $cdata (@{ $fdata->{'constraints'} }) {
next unless $cdata->{'type'} eq 'foreign_key';
$cdata->{'fields'} ||= [ $field->name ];
push @{ $tdata->{'constraints'} }, $cdata;
}
}
for my $idata (@{ $tdata->{'indices'} || [] }) {
my $index = $table->add_index(
lib/SQL/Translator/Parser/DB2.pm view on Meta::CPAN
type => uc $idata->{'type'},
fields => $idata->{'fields'},
) or die $table->error;
}
for my $cdata (@{ $tdata->{'constraints'} || [] }) {
my $constraint = $table->add_constraint(
name => $cdata->{'name'},
type => $cdata->{'type'},
fields => $cdata->{'fields'},
reference_table => $cdata->{'reference_table'},
reference_fields => $cdata->{'reference_fields'},
match_type => $cdata->{'match_type'} || '',
on_delete => $cdata->{'on_delete'} || $cdata->{'on_delete_do'},
on_update => $cdata->{'on_update'} || $cdata->{'on_update_do'},
) or die $table->error;
}
}
for my $def (@{ $result->{'views'} || [] }) {
SVG-DOM2
view release on metacpan or search on metacpan
lib/SVG/DOM2/Element/MetaData.pm view on Meta::CPAN
# Resource
my $rdfns = $self->document->getNamespace('rdf');
my $resource = $child->getAttributeNS($rdfns, 'resource');
return $resource->value if defined $resource;
# Value
return $child->cdata->text if $child->hasCDATA;
# Structure
my $result;
my ($achild) = $child->getChildren;
return '' if not $achild;
if($achild->localName =~ /Bag|Alt|Seq/) {
SVG-GD
view release on metacpan or search on metacpan
lib/SVG/GD.pm view on Meta::CPAN
style=>{
SVG::GD::Font::getSVGstyle($myfont),
fill=>$self->getColour($colour),
},
x=>$x,
y=>$y)->tspan(dy=>'1em') ->cdata($text);
}
=head2 char
write a character
lib/SVG/GD.pm view on Meta::CPAN
style=>{'writing-mode'=>'tb',
SVG::GD::Font::getSVGstyle($myfont),
fill=>$self->getColour($colour),
},
x=>$x,y=>$y,
)->cdata($text);
}
*SVG::GD::Image::charUp = \&SVG::GD::Image::stringUp;
#---------------
#internal methods
SVG-Graph
view release on metacpan or search on metacpan
Graph/Glyph/axis.pm view on Meta::CPAN
my $y = $self->yoffset+$self->ysize - ($self->y_intercept * $yscale)+($self->group->_parent_svg->margin/4);
$group->text(
x=>$x,
y=>$y,
transform=>"rotate(90,$x,$y)",
)->cdata($x_tick_label);
#intertick label
my $x_intertick_label = shift @x_intertick_labels;
$tickpos = (((2 * $tick) - 1) / 2) * $xscale;
$x = $self->xoffset + $tickpos;
$group->text(
x=>$x,
y=>$y,
transform=>"rotate(90,$x,$y)",
)->cdata($x_intertick_label);
}
} elsif($self->x_fractional_ticks){
my $inc = $self->group->xrange / $self->x_fractional_ticks;
for(my $tick = $self->group->xmin ; $tick <= $self->group->xmax; $tick += $inc){
Graph/Glyph/axis.pm view on Meta::CPAN
my $y = $self->yoffset + $self->ysize - $tickpos;
$group->text(
x=>$x,
y=>$y,
# transform=>"rotate(90,$x,$y)",
)->cdata($y_tick_label);
#intertick label
my $y_intertick_label = shift @y_intertick_labels;
$tickpos = (((2 * $tick) - 1) / 2) * $xscale;
$x = $self->xoffset + $tickpos;
$group->text(
x=>$x,
y=>$y,
# transform=>"rotate(90,$x,$y)",
)->cdata($y_intertick_label);
}
} elsif($self->y_fractional_ticks){
my $inc = $self->group->yrange / $self->y_fractional_ticks;
for(my $tick = $self->group->ymin ; $tick <= $self->group->ymax ; $tick += $inc){
SVG-Grid
view release on metacpan or search on metacpan
lib/SVG/Grid.pm view on Meta::CPAN
'fill-opacity' => $$defaults{fill_opacity},
'font-size' => $$defaults{font_size},
'font-weight' => $$defaults{font_weight},
stroke => $$defaults{stroke},
}
) -> cdata($options{text});
} # End of text.
# ----------------------------------------------
lib/SVG/Grid.pm view on Meta::CPAN
'font-weight' => $$defaults{font_weight},
stroke => $$defaults{stroke},
'stroke-width' => $$defaults{stroke_width},
}
) -> cdata($options{text});
return $text_id;
} # End of text_link.
SVG-Parser
view release on metacpan or search on metacpan
lib/SVG/Parser/Base.pm view on Meta::CPAN
$parser->{__svg}=new SVG(%svg_attr);
# empty element list
$parser->{__elements}=[];
# empty unassigned attlist list (for internal DTD subset handling)
$parser->{__unassigned_attlists}=[];
# cdata count
$parser->{__in_cdata}=0;
$parser->debug("Start",$parser."/".$parser->{__svg});
}
# handle start of element - extend chain by one
lib/SVG/Parser/Base.pm view on Meta::CPAN
return if $text=~/^\s*$/s; #ignore redundant whitespace
my $parent=$elements->[-1];
# are we in a CDATA section? (see CdataStart/End below)
if ($parser->{__in_cdata}) {
my $current=$parent->{-CDATA} || '';
$parent->CDATA($current.$parser->{__svg}{-elsep}.$text);
} else {
my $current=$parent->{-cdata} || '';
$parent->cdata($current.$parser->{__svg}{-elsep}.$text);
}
$parser->debug("CDATA","\"$text\"");
}
# handle cannonical data (CDATA sections)
sub CdataStart {
my $parser=shift;
$parser->{__in_cdata}++;
$parser->debug("CDATA","start->");
}
sub CdataEnd {
lib/SVG/Parser/Base.pm view on Meta::CPAN
my $elements=$parser->{__elements};
my $parent=$elements->[-1];
my $current=$parent->{-CDATA} || '';
$parent->CDATA($current.$parser->{__svg}{-elsep});
$parser->{__in_cdata}--;
$parser->debug("CDATA","<-end");
}
# handle processing instructions
SVG-Rasterize
view release on metacpan or search on metacpan
examples/stroke_width.pl view on Meta::CPAN
'stroke' => 'black',
'stroke-width' => 5,
'fill' => 'none',
transform => 'scale(2, 1)');
$svg->text('x' => 5, 'y' => 20, 'font-size' => 20,
transform => 'scale(4, 1)')->cdata('O');
print $svg->xmlify, "\n";
SVG-SpriteMaker
view release on metacpan or search on metacpan
lib/SVG/SpriteMaker.pm view on Meta::CPAN
if ($attribs{$key} =~ /#$oid\b/) {
$attribs{$key} =~ s/#$oid\b/#$nid/g;
$elem->attr($key => $attribs{$key});
}
}
if ($elem->cdata =~ /#$oid\b/) {
$elem->cdata($elem->cdata =~ s/#$oid\b/#$nid/gr);
}
}
}
$view->getParent->insertAfter($svg, $view);
lib/SVG/SpriteMaker.pm view on Meta::CPAN
where I<$prefix> is the value of the first argument.
If an ID is shared between two or more input files, this module will
try to rename each occurence except for the first one. This operation
might have false positives (attributes/cdatas that are mistakenly
identified to contain the ID-to-be-renamed) and false negatives
(attributes/cdatas that actually contain the ID-to-be-renamed but this
is missed by the module), and as such SVG::SpriteMaker will warn if
duplicate IDs are detected. You can suppress this warning by setting
the C<SVG_SPRITEMAKER_NO_DUPLICATE_WARNINGS> environment variable to a
true value.
SVG-Template-Graph
view release on metacpan or search on metacpan
lib/SVG/Template/Graph.pm view on Meta::CPAN
my $to = $tg->text(%attrs)
|| carp("Failed to generate an Axis text element within group '$id'.");
my %args = ( x => 0 );
foreach my $line (@$text) {
$to->tspan(%args)->cdata($line)
|| carp(
"Failed to generate an Axis tspan element within group '$id'.");
#set the dy spacing for multi-line text
$args{dy} = '1em';
lib/SVG/Template/Graph.pm view on Meta::CPAN
$thistext =~ s/\s$//;
return $o eq 'y'
? $args->{anchor}
->text( y => $self->{grid}->{line}->{cy}, x => $self->T->cx0, )
->cdata($thistext)
: $args->{anchor}
->text( x => $self->{grid}->{line}->{cx}, y => $self->T->cy0, )
->cdata($thistext);
# $args->{anchor}->line(
# y1=> $o eq 'y' ? $self->{grid}->{line}->{cy} : $t->cy0,
# x1=> $o eq 'y' ? $t->cx0 : $self->{grid}->{line}->{cx},
# y2=> $o eq 'y' ? $self->{grid}->{line}->{cy} : $t->cy1,
SVG-Timeline-Compact
view release on metacpan or search on metacpan
lib/SVG/Timeline/Compact.pm view on Meta::CPAN
#p $ev;
$x0=$ev->x0;
my $width=$ev->width;
my $color=$ev->color;
my $rect=$bars->rect(x=>$x0."px",y=>$y0."px",width=>$width."px",height=>$y1."px", fill=>$color,stroke=>"#000");
$bars->text(x=>$x0+$width/2,y=>($y0-2+$self->min_height),"text-anchor"=>"middle")->cdata($ev->name);
$rect->title->cdata($ev->tooltip.", Start: ". $ev->start.", End ". $ev->end);
$maxX=$x0+$width if ($maxX<$x0+$width);
}
$y0+=$y1*1.5;
}
lib/SVG/Timeline/Compact.pm view on Meta::CPAN
my $x=0 ;
my$dim=$bbox->group(id=>"dim");
$dim->line(x1=>0,y1=>($y0+$self->min_height),x2=>800,y2=>($y0+$self->min_height));
$dim->use("xlink:href"=>"#arrow",x=>0,y=>($y0+$self->min_height));
$dim->use("xlink:href"=>"#arrow",x=>800,y=>($y0+$self->min_height));
#$dim->text(x=>$maxX/2,y=>($y0+$self->min_height),"text-anchor"=>"middle")->cdata("<-------------- ". $self->_resolution. " --------------->");
#<use stroke="#000000" xlink:href="#ah" transform="translate(354.4 119.4)rotate(90)"/>
$bbox->text(x=>$maxX+10,y=>$self->min_height)->cdata("Min:\t".$self->_min->format_cldr("yyyy/MM/dd h:m"));
$bbox->text(x=>$maxX+10,y=>2*$self->min_height)->cdata("Max:\t".$self->_max->format_cldr("yyyy/MM/dd h:m"));
my $unit;
$unit= $self->_resolution->in_units('months')." Months" if ($self->_resolution->in_units('months')>0);
$unit= $self->_resolution->in_units('days')." Days" if ($self->_resolution->in_units('days')>0);
$unit= $self->_resolution->in_units('minutes')." Minutes" if ($self->_resolution->in_units('minutes')>0);
$bbox->text(x=>$maxX+10,y=>3*$self->min_height)->cdata("Scale:\t ".$unit);
while($x<=$maxX){
if($x%100 == 0){
$bbox->line(x1=>$x,x2=>$x,y1=>$y0,y2=>0 ,style=>"stroke:#000;stroke-width:1px" );
$dim->text(x=>$x,y=>($y0+$self->min_height),"text-anchor"=>"middle")->cdata("$x");
}else{
$bbox->line(x1=>$x,x2=>$x,y1=>$y0,y2=>0 ,style=>"stroke:#fff;stroke-width:1px" );
}
$x=$x+10;
SVG-Timeline
view release on metacpan or search on metacpan
lib/SVG/Timeline.pm view on Meta::CPAN
has svg => (
is => 'ro',
isa => 'SVG',
lazy_build => 1,
clearer => '_clear_svg',
handles => [qw[xmlify line text rect cdata]],
);
sub _build_svg {
my $self = shift;
lib/SVG/Timeline.pm view on Meta::CPAN
);
$self->text(
x => ($curr_year + 1) * $units_per_year,
y => 20,
'font-size' => $self->bar_height / 2
)->cdata($curr_year);
}
$curr_year++;
}
$self->rect(
SVG-VCD
view release on metacpan or search on metacpan
bin/VertFigure view on Meta::CPAN
});
foreach my $i (1 .. $n) {
my $taxon = $vcd->taxon($i-1);
my $data = $taxon->field("data");
my($cdata, $ddata) = split('\|', $data);
$ddata = "" if !defined $ddata;
my $nc = length($cdata);
my $nd = length($ddata);
my $text = $st->text(x => 10, 'y' => $th * $i + $tyo);
my $tname = $taxon->field("taxon");
my %args = ( style => { 'font-style' => "italic" } );
if ($tname =~ s/^\///) {
%args = ();
}
$text->tspan(%args)->cdata($tname);
my $specimen = $taxon->field("specimen");
# I don't know why, but some versions of InkScape (e.g. v0.48 on
# Ubuntu 12.04.2) do not render an ordinary space in this context
# -- hence use of a non-breaking space.
$text->tspan()->cdata(" $specimen") if defined $specimen;
# Cervicals
foreach (my $j = 0; $j < $nc; $j++) {
vertebra($svg, $vcd, $i, $j-$nc, $cw, $ch, substr($cdata, $j, 1));
}
# Dorsals
my $dheight = $dh;
foreach (my $j = 0; $j < $nd; $j++) {
SVG
view release on metacpan or search on metacpan
examples/attributeManip.pl view on Meta::CPAN
# Create an SVG object
# (c) 2003 Ronan Oger
my $svg = SVG->new(width=>200,height=>200);
$svg->title()->cdata('I am a title');
# Use explicit element constructor to generate a group element:
my $y = $svg->group(
id => 'group_y',
SVGGraph-Pie
view release on metacpan or search on metacpan
lib/SVGGraph/Pie.pm view on Meta::CPAN
$titlestyle = $$options{titlestyle} if $$options{titlestyle};
$svg->text(
'x' => 20,
'y' => 40,
'style' => $titlestyle,
)->cdata($$options{title});
}
## Label
if ($$options{label}) {
my $labelleft = $cx + $radius + 10;
lib/SVGGraph/Pie.pm view on Meta::CPAN
},
);
$svg->text(
'x' => $labelleft + 25,
'y' => $start + GAP,
)->cdata($values->[$i]->{label});
$start += 25;
}
}
SVGPDF
view release on metacpan or search on metacpan
lib/SVGPDF.pm view on Meta::CPAN
content => $e->{content},
root => $self,
);
# If there are <style> elements, these must be processed first.
my $cdata = "";
for ( $svg->get_children ) {
next unless ref($_) eq "SVGPDF::Style";
# DDumper($_->get_children) unless scalar($_->get_children) == 1;
croak("ASSERT: 1 child") unless scalar($_->get_children) == 1;
for my $t ( $_->get_children ) {
croak("# ASSERT: non-text child in style")
unless ref($t) eq "SVGPDF::TextElement";
$cdata .= $t->content;
}
}
if ( $cdata =~ /\S/ ) {
$css->read_string($cdata);
}
my $atts = $svg->atts;
# The viewport, llx lly width height.
SVGraph
view release on metacpan or search on metacpan
lib/SVGraph/2D.pm view on Meta::CPAN
#'text-anchor' => "end",
'font-family' => "Verdana",
'font-size' => '9px',
'fill' => "gray",
},
)->cdata("[Generated by SVGraph on ".$dt->year()."-".sprintf("%02d",$dt->month())."-".sprintf("%02d",$dt->day())." ".sprintf("%02d",$dt->hour()).":".sprintf("%02d",$dt->min())." GMT]");
return 1;
}
lib/SVGraph/2D.pm view on Meta::CPAN
'text-anchor' => 'end',
'font-family' => 'Verdana',
'font-size' => $font_size.'px',
'fill' => "black",
},
)->cdata((($_*$self->{grid_y_main_spacing})+$self->{grid_y_scale_minimum}).$self->{grid_y_suffix});
}
return 1;
}
lib/SVGraph/2D.pm view on Meta::CPAN
}
);
my $txt=$g->text(
transform=>"translate(".int($x1).",".($self->{block_down}+8).") rotate(70)",
# cursor=>"move",
)->cdata($null);
=head1
$g->animate
(
'attributeName'=>"font-weight",
lib/SVGraph/2D.pm view on Meta::CPAN
}
);
my $txt=$g->text(
transform=>"translate(".int($x1).",".($self->{block_down}-6).") rotate(-90)",
# cursor=>"move",
)->cdata($null);
=head1
$g->animate
(
'attributeName'=>"font-weight",
lib/SVGraph/2D.pm view on Meta::CPAN
'font-family' => 'Verdana',
'font-size' => '8'.'px',
'fill' => "black",
}
)->cdata($null);
}
}
}
return 1;
lib/SVGraph/2D.pm view on Meta::CPAN
# 'text-anchor' => 'end',
'font-family' => 'Verdana',
'font-size' => '8'.'px',
'fill' => "black",
}
)->cdata($null);
}
else
{
$self->{SVG}->text(
x=>$self->{block_right}+8,
lib/SVGraph/2D.pm view on Meta::CPAN
# 'text-anchor' => 'end',
'font-family' => 'Verdana',
'font-size' => '8'.'px',
'fill' => "black",
}
)->cdata($null);
}
}
}
SVN-Web
view release on metacpan or search on metacpan
css/trac/code.css view on Meta::CPAN
.c_number { color: #099 }
.h_asp { color: #ff0 }
.h_aspat { color: #ffdf00 }
.h_attribute { color: teal }
.h_attributeunknown { color: red }
.h_cdata { color: #ffdf00 }
.h_entity { color: purple }
.h_number { color: #099 }
.h_other { color: purple }
.h_script, .h_tag, .h_tagend { color: navy }
.h_tagunknown { color: red }
SWISH-3
view release on metacpan or search on metacpan
libswish3.c view on Meta::CPAN
mycomments, /* comment */
(warningSAXFunc) & mywarn, /* xmlParserWarning */
(errorSAXFunc) & mywarn, /* xmlParserError */
(fatalErrorSAXFunc) & myerr, /* xmlfatalParserError */
NULL, /* getParameterEntity */
NULL, /* cdataBlock */
NULL, /* externalSubset; */
XML_SAX2_MAGIC,
NULL,
mystartElementNs, /* startElementNs */
myendElementNs, /* endElementNs */
Salvation
view release on metacpan or search on metacpan
lib/Salvation/Service/View/Stack/Convert/To/XML.pm view on Meta::CPAN
name => $frame -> fname(),
type => $frame -> ftype() );
},
after_frame_single => sub{ $writer -> endTag( $frame_tag_name ) },
raw => sub{ $writer -> cdata( shift or '' ) }
);
foreach my $event ( keys %default_events )
{
unless( exists $args -> { 'events' } -> { $event } )
( run in 0.697 second using v1.01-cache-2.11-cpan-454fe037f31 )