pjlsergeant/bubble.pl

## bubble.pl
#!perl

# Display a bubble chart of DB tables, with rows and relationships to other tables
# Either run directly: perl bubble.pl
# Or with Plack: plackup bubble.pl

use strict; use warnings;

# cpanm Dancer Template DBIx::Class::Schema::Loader Data::Google::Visualization::DataTable
use Dancer;
use Template;
use DBIx::Class::Schema::Loader;
use Data::Google::Visualization::DataTable;

# Enter your DB connection details. You will need the corresponding DBD::* module installed
# for the DB. `mysql`, `Pg`, `Oracle` should all work. (eg: cpanm DBD::Pg).
my $db_driver = 'Pg';
my $db_name   = 'mydatabase';
my $db_user   = 'username';
my $db_pass   = 'password';

# Disable irritating DBIx::Class::Schema::Loader warning.
$ENV{SCHEMA_LOADER_BACKCOMPAT}='current';

# Connect to and investigate the database
my $schema = DBIx::Class::Schema::Loader->connect(
    sprintf('dbi:%s:dbname="%s"', $db_driver, $db_name),
    $db_user, $db_pass
);

# We'll store our output in a Google DataTable
my $datatable = Data::Google::Visualization::DataTable->new();
$datatable->add_columns(
    { id => 'table',         label => "Database Table Name", type => 'string' },
    { id => 'rowcount',      label => "Row Count",           type => 'number' },
    { id => 'relationships', label => "Relationships",       type => 'number' },
);

# Record the table data
for my $source ( map { $schema->source($_) } $schema->sources ) {
    $datatable->add_rows({
        table => $source->from,
        rowcount => $source->resultset->count,
        relationships => (scalar $source->relationships ),
    });
}

# Render HTML
my $html;
my $template = join '', (<DATA>);
Template->new->process(\$template, { datatable => $datatable }, \$html);

get '/' => sub { return $html };
dance;

__DATA__
<html><head>
    <script type="text/javascript" src="https://www.google.com/jsapi"></script>
    <script type="text/javascript">
        google.load("visualization", "1", {packages:["corechart"]});
        google.setOnLoadCallback(drawChart);
        function drawChart() {
            var data = new google.visualization.DataTable([% datatable.output_json %]);
            var options = {
                hAxis: {title: 'Rows'},
                vAxis: {title: 'Relationships'},
                bubble: {textStyle: {fontSize: 11}}
            };
            var chart = new google.visualization.BubbleChart(document.getElementById('chart_div'));
            chart.draw(data, options);
        }
    </script>
</head>
<body>
    <div id="chart_div" style="width: 900px; height: 500px;"></div>
</body>
</html>
	#!perl

	# Display a bubble chart of DB tables, with rows and relationships to other tables
	# Either run directly: perl bubble.pl
	# Or with Plack: plackup bubble.pl

	use strict; use warnings;

	# cpanm Dancer Template DBIx::Class::Schema::Loader Data::Google::Visualization::DataTable
	use Dancer;
	use Template;
	use DBIx::Class::Schema::Loader;
	use Data::Google::Visualization::DataTable;

	# Enter your DB connection details. You will need the corresponding DBD::* module installed
	# for the DB. `mysql`, `Pg`, `Oracle` should all work. (eg: cpanm DBD::Pg).
	my $db_driver = 'Pg';
	my $db_name = 'mydatabase';
	my $db_user = 'username';
	my $db_pass = 'password';

	# Disable irritating DBIx::Class::Schema::Loader warning.
	$ENV{SCHEMA_LOADER_BACKCOMPAT}='current';

	# Connect to and investigate the database
	my $schema = DBIx::Class::Schema::Loader->connect(
	sprintf('dbi:%s:dbname="%s"', $db_driver, $db_name),
	$db_user, $db_pass
	);

	# We'll store our output in a Google DataTable
	my $datatable = Data::Google::Visualization::DataTable->new();
	$datatable->add_columns(
	{ id => 'table', label => "Database Table Name", type => 'string' },
	{ id => 'rowcount', label => "Row Count", type => 'number' },
	{ id => 'relationships', label => "Relationships", type => 'number' },
	);

	# Record the table data
	for my $source ( map { $schema->source($_) } $schema->sources ) {
	$datatable->add_rows({
	table => $source->from,
	rowcount => $source->resultset->count,
	relationships => (scalar $source->relationships ),
	});
	}

	# Render HTML
	my $html;
	my $template = join '', (<DATA>);
	Template->new->process(\$template, { datatable => $datatable }, \$html);

	get '/' => sub { return $html };
	dance;

	__DATA__
	<html><head>
	<script type="text/javascript" src="https://www.google.com/jsapi"></script>
	<script type="text/javascript">
	google.load("visualization", "1", {packages:["corechart"]});
	google.setOnLoadCallback(drawChart);
	function drawChart() {
	var data = new google.visualization.DataTable([% datatable.output_json %]);
	var options = {
	hAxis: {title: 'Rows'},
	vAxis: {title: 'Relationships'},
	bubble: {textStyle: {fontSize: 11}}
	};
	var chart = new google.visualization.BubbleChart(document.getElementById('chart_div'));
	chart.draw(data, options);
	}
	</script>
	</head>
	<body>
	<div id="chart_div" style="width: 900px; height: 500px;"></div>
	</body>
	</html>