Frey/Class/Graph.pm

package Frey::Class::Graph;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

use GraphViz;

has skeleton => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'skeleton',
);

sub as_markup {
        my ($self) = @_;

        my $g = GraphViz->new();

        $g->add_node( 'foo' );
        $g->add_node( 'bar' );

        $g->add_edge( 'foo' => 'bar' );

        $self->content_type( 'image/png' );
        return $g->as_png;
}

1;
1	package Frey::Class::Graph;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6	#with 'Frey::Storage';
7
8	use GraphViz;
9
10	has skeleton => (
11	is => 'rw',
12	isa => 'Str',
13	required => 1,
14	default => 'skeleton',
15	);
16
17	sub as_markup {
18	my ($self) = @_;
19
20	my $g = GraphViz->new();
21
22	$g->add_node( 'foo' );
23	$g->add_node( 'bar' );
24
25	$g->add_edge( 'foo' => 'bar' );
26
27	$self->content_type( 'image/png' );
28	return $g->as_png;
29	}
30
31	1;