Graph-Easy-As_svg-0.23/ 0000755 0001750 0001750 00000000000 11015337113 012413 5 ustar te te Graph-Easy-As_svg-0.23/t/ 0000755 0001750 0001750 00000000000 11015337113 012656 5 ustar te te Graph-Easy-As_svg-0.23/t/svg/ 0000755 0001750 0001750 00000000000 11015337113 013455 5 ustar te te Graph-Easy-As_svg-0.23/t/svg/svg.txt 0000644 0001750 0001750 00000006603 10332717115 015027 0 ustar te te graph {
fill: peru;
border: 1px dashed blue;
}
group { fill: peru; }
[ Bonn ] - > [ Berlin ] { shape: circle; fill: darkslategrey; background: brown; color: white; }
[ Bonn ] ==> [ Frankfurt ] { fill: #deadff; }
[ Berlin ] ..> [ Cottbus ] { shape: ellipse; }
[ Berlin ] -> { color: green; } [ Bonn ] { fill: #ffdead; }
[ Cottbus ] = > [ Frankfurt ]
[ Berlin ] -> { arrow-style: closed; } [ Ulm ]
[ Ulm ] { shape: house; } .-> { color: #a02020; } [ Koblenz]
[ Ulm ] ..-> [ Konstanz ] { shape: diamond; fill: peru; border: none; background: yellow; }
[ Konstanz ] --> { arrow-style: filled; fill: red; } [ Mainz ] { shape: triangle; }
[ Koblenz ] { shape: invtriangle; }
node.point { shape: point; flow: south; }
node.doublepoint { border-style: double; shape: point; flow: east; }
node.double { border: double white; fill: palevioletred; }
node.doubledash { border: double-dash yellow; fill: crimson; }
( Stars
[ A ] { point-style: star; color: red; } -> # background ignored
[ B ] { point-style: circle; fill: dodgerblue; } ->
[ C ] { point-style: circle; fill: white; } ->
[ D ] { point-style: square; fill: firebrick; flow: west; } ->
[ E ] { point-style: diamond; fill: lime; } ->
[ F ] { shape: invisible; background: coral; } ->
[ G ] { point-style: dot; color: slategrey; } -> # background ignored
[ H ] { point-style: circle; fill: black; } ->
[ I ] { point-style: cross; color: darkblue; } # fill ignored
) { nodeclass: point; }
(
[ Rect ]
<--> [ Circle ] { shape: circle; }
<--> [ Ellipse ] { shape: ellipse; }
<.-> [ House ] { shape: house; }
<.> [ InvHouse ] { shape: invhouse; }
<= > [ Triangle ] { shape: triangle; }
<- > [ InvTriangle ] { shape: invtriangle; flow: south; }
<..-> [ Octagon ] { shape: octagon; flow: south; }
<..-> [ Diamond ] { shape: diamond; flow: east; }
[ Triangle ] <==> [ Hexagon ] { shape: hexagon; }
<==> [ Pentagon ] { shape: pentagon; }
<==> [ Septagon ] { shape: septagon; }
[ Pentagon ] <==> [ Parallelogram ] { shape: parallelogram; }
[ Hexagon ] -- [ Trapezium ] { shape: trapezium; }
[ Hexagon ] .-.- [ Invtrapezium ] { shape: invtrapezium; }
) { nodeclass: double; }
[ A ] -> [ AB ]
( Stars2
[ AB ] { point-style: circle; fill: dodgerblue; } ->
[ AC ] { point-style: circle; fill: white; } ->
[ AD ] { point-style: square; fill: firebrick; flow: west; } ->
[ AE ] { point-style: diamond; fill: lime; } ->
[ AF ] { shape: invisible; background: coral; } ->
[ AG ] { point-style: dot; color: slategrey; } -> # background ignored
[ AH ] { point-style: circle; fill: black; } ->
[ AI ] { point-style: cross; color: darkblue; } # fill ignored
) { nodeclass: doublepoint; }
( Rect2
[ DRect ] { origin: Frankfurt; offset: 0,4; }
<--> [ DCircle ] { shape: circle; }
<.-> [ DHouse ] { shape: house; }
<.> [ DInvHouse ] { shape: invhouse; }
<= > [ DTriangle ] { shape: triangle; }
<- > [ DInvTriangle ] { shape: invtriangle; flow: south; }
<..-> [ DOctagon ] { shape: octagon; flow: south; }
<..-> [ DDiamond ] { shape: diamond; flow: east; }
[ DTriangle ] <==> [ DHexagon ] { shape: hexagon; }
<==> [ DPentagon ] { shape: pentagon; }
<==> [ DSeptagon ] { shape: septagon; }
[ DPentagon ] <==> [ DParallelogram ] { shape: parallelogram; }
[ DDiamond ] -- [ DTrapezium ] { shape: trapezium; }
[ DHexagon ] .-.- [ DInvtrapezium ] { shape: invtrapezium; }
) { nodeclass: doubledash; }
Graph-Easy-As_svg-0.23/t/pod.t 0000644 0001750 0001750 00000000505 10333416314 013630 0 ustar te te #!/usr/bin/perl -w
use Test::More;
use strict;
BEGIN
{
plan tests => 1;
chdir 't' if -d 't';
use lib '../lib';
};
SKIP:
{
skip( 'Test::Pod not installed on this system', 1 )
unless do
{
eval "use Test::Pod";
$@ ? 0 : 1;
};
pod_file_ok( '../lib/Graph/Easy/As_svg.pm' );
}
Graph-Easy-As_svg-0.23/t/pod_cov.t 0000644 0001750 0001750 00000000622 10332730126 014476 0 ustar te te #!/usr/bin/perl -w
use Test::More;
use strict;
BEGIN
{
plan tests => 1;
chdir 't' if -d 't';
use lib '../lib';
};
SKIP:
{
skip("Test::Pod::Coverage 1.00 required for testing POD coverage", 1)
unless do {
eval "use Test::Pod::Coverage 1.00";
$@ ? 0 : 1;
};
for my $m (qw/
Graph::Easy::As_svg
/)
{
pod_coverage_ok( $m, "$m is covered" );
}
}
Graph-Easy-As_svg-0.23/t/svg.t 0000644 0001750 0001750 00000025726 11013326764 013666 0 ustar te te #!/usr/bin/perl -w
use Test::More;
use strict;
BEGIN
{
plan tests => 86;
chdir 't' if -d 't';
use lib '../lib';
use_ok ("Graph::Easy") or die($@);
};
use Graph::Easy::Edge::Cell qw/EDGE_END_E EDGE_END_N EDGE_END_S EDGE_END_W EDGE_HOR/;
#############################################################################
my $graph = Graph::Easy->new();
is (ref($graph), 'Graph::Easy');
is ($graph->error(), '', 'no error yet');
is ($graph->nodes(), 0, '0 nodes');
is ($graph->edges(), 0, '0 edges');
is (join (',', $graph->edges()), '', '0 edges');
# this will load As_svg:
my $svg = $graph->as_svg();
# after loading As_svg, this should work:
can_ok ('Graph::Easy::Node', qw/as_svg/);
can_ok ('Graph::Easy', qw/as_svg_file/);
can_ok ('Graph::Easy::As_svg', qw/_text_length/);
like ($svg, qr/enerated at .* by/, 'contains generator notice');
like ($svg, qr/"; # finish
$txt .= "\n" if $options->{standalone};
# set the info fields:
$self->{svg_info}->{width} = $mx;
$self->{svg_info}->{height} = $my;
$txt;
}
=pod
=head1 NAME
Graph::Easy::As_svg - Output a Graph::Easy as Scalable Vector Graphics (SVG)
=head1 SYNOPSIS
use Graph::Easy;
my $graph = Graph::Easy->new();
$graph->add_edge ('Bonn', 'Berlin');
print $graph->as_svg_file();
=head1 DESCRIPTION
C contains just the code for converting a
L object to a SVG text.
X
X
X
X