This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
# Draw the commit graph of a git repository, using GraphViz. Supply the directory | |
# the repo is in as the first argument. Writes a file called 'repo.svg' to the CWD. | |
use strict; use warnings; | |
use Cwd; | |
use Git::PurePerl; | |
use GraphViz2; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!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; |