view release on metacpan or  search on metacpan

mason/draw_graph.mhtml  view on Meta::CPAN

	$g->add_edge( $fk->table_from->name, $fk->table_to->name,
		      %p,
		    );

	$fk{$id1} = $fk{$id2} = 1;
    }
}

if ( my $r = $m->apache_req )
{
    $r->content_type('image/png');
}
else
{
    my $cat = eval "$c";
    die $@ if $@;

    $cat->response()->content_type('image/png');
}

$m->clear_buffer; # no extra whitespace or anything
$m->flush_buffer;
$g->as_png( sub { $m->out(@_); $m->flush_buffer; } );
$m->abort(200); # make sure nothing extra sneaks out
</%init>
<%flags>
inherit => undef
</%flags>