Meta::Visualization::Graph - add some capabilities to GraphViz.

	MANIFEST: Graph.pm
	PROJECT: meta
	VERSION: 0.08

	package foo;
	use Meta::Visualization::Graph qw();
	my($object)=Meta::Visualization::Graph->new();
	my($result)=$object->method();

	BEGIN()
	get_enum($)
	as_type($$$)
	TEST($)

	Name: Mark Veltzer
	Email: mailto:veltzer@cpan.org
	WWW: http://www.veltzer.org
	CPAN id: VELTZER

	0.00 MV graph visualization
	0.01 MV thumbnail user interface
	0.02 MV more thumbnail issues
	0.03 MV website construction
	0.04 MV web site automation
	0.05 MV SEE ALSO section fix
	0.06 MV finish papers
	0.07 MV teachers project
	0.08 MV md5 issues

#!/bin/echo This is a perl module and should not be run

package Meta::Visualization::Graph;

use strict qw(vars refs subs);
use Meta::Info::Enum qw();
use GraphViz qw();
use Error qw(:try);

our($VERSION,@ISA);
$VERSION="0.08";
@ISA=qw(GraphViz);

#sub BEGIN();
#sub as_type($$$);
#sub get_enum();
#sub TEST($);

#__DATA__

our($enum);

sub BEGIN() {
	$enum=Meta::Info::Enum->new();
	$enum->set_name("output_type");
	$enum->set_description("types of outputs from GraphViz");
	$enum->insert("canon","canon");
	$enum->insert("text","text");
	$enum->insert("ps","ps");
	$enum->insert("hpgl","hpgl");
	$enum->insert("pcl","pcl");
	$enum->insert("mif","mif");
	$enum->insert("pic","pic");
	$enum->insert("gd","gd");
	$enum->insert("gd2","gd2");
	$enum->insert("gif","gif");
	$enum->insert("jpeg","jpeg");
	$enum->insert("png","png");
	$enum->insert("wbmp","wbmp");
	$enum->insert("ismap","ismap");
	$enum->insert("imap","imap");
	$enum->insert("vrml","vrml");
	$enum->insert("vtx","vtx");
	$enum->insert("mp","mp");
	$enum->insert("fig","fig");
	$enum->insert("svg","svg");
	$enum->insert("plain","plain");
	$enum->set_default("svg");
}

sub get_enum() {
	return($enum);
}

sub as_type($$$) {
	my($self,$type,$file)=@_;
	$enum->check_elem($type);
	if($type eq "canon") {
		return($self->as_canon($file));
	}
	if($type eq "text") {
		return($self->as_text($file));
	}
	if($type eq "ps") {
		return($self->as_ps($file));
	}
	if($type eq "hpgl") {
		return($self->as_hgpl($file));
	}
	if($type eq "pcl") {
		return($self->as_pcl($file));
	}
	if($type eq "mif") {
		return($self->as_mif($file));
	}
	if($type eq "pic") {
		return($self->as_pic($file));
	}
	if($type eq "gd") {
		return($self->as_gd($file));
	}
	if($type eq "gd2") {
		return($self->as_gd2($file));
	}
	if($type eq "gif") {
		return($self->as_gif($file));
	}
	if($type eq "jpeg") {
		return($self->as_jpeg($file));
	}
	if($type eq "png") {
		return($self->as_png($file));
	}
	if($type eq "wbmp") {
		return($self->as_wbmp($file));
	}
	if($type eq "ismap") {
		return($self->as_ismap($file));
	}
	if($type eq "imap") {
		return($self->as_imap($file));
	}
	if($type eq "vrml") {
		return($self->as_vrml($file));
	}
	if($type eq "vtx") {
		return($self->as_vtx($file));
	}
	if($type eq "mp") {
		return($self->as_mp($file));
	}
	if($type eq "fig") {
		return($self->as_fig($file));
	}
	if($type eq "svg") {
		return($self->as_svg($file));
	}
	if($type eq "plain") {
		return($self->as_plain($file));
	}
	throw Meta::Error::Simple("you shouldnt be here");
}

sub TEST($) {
	my($context)=@_;
	return(1);
}

1;

__END__