ywatase/graph_svg.psgi

## graph_svg.psgi
use strict;
use utf8;
use Plack::Request;
use Graph::Easy;
# cpanm Graph::Easy::As_svg;

my $body = <<END;
<!DOCTYPE html>
<html>
<body>
<h1>Graph::Easy sample</h1>
%s
</body>
</html>
END

sub svg {
    my $graph = Graph::Easy->new;
    $graph->add_edge('A','B');
    $graph->add_edge('B','C');
    $graph->add_edge('C','D');
    $graph->add_edge('B','E');
    $graph->add_edge('E','F');
    $graph->add_edge('F','G');
    $graph->add_edge('D','G');
    $graph->as_svg; # Graph::Easy::As_svg
}

my $app = sub {
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
    $res->body(sprintf $body, svg() );
    $res->finalize;
};
	use strict;
	use utf8;
	use Plack::Request;
	use Graph::Easy;
	# cpanm Graph::Easy::As_svg;

	my $body = <<END;
	<!DOCTYPE html>
	<html>
	<body>
	<h1>Graph::Easy sample</h1>
	%s
	</body>
	</html>
	END

	sub svg {
	my $graph = Graph::Easy->new;
	$graph->add_edge('A','B');
	$graph->add_edge('B','C');
	$graph->add_edge('C','D');
	$graph->add_edge('B','E');
	$graph->add_edge('E','F');
	$graph->add_edge('F','G');
	$graph->add_edge('D','G');
	$graph->as_svg; # Graph::Easy::As_svg
	}

	my $app = sub {
	my $env = shift;
	my $req = Plack::Request->new($env);
	my $res = $req->new_response(200);
	$res->body(sprintf $body, svg() );
	$res->finalize;
	};