#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use DBIx::SchemaChecksum;
my $sc = DBIx::SchemaChecksum->new_with_options();
say $sc->schemadump if $sc->verbose;
say $sc->checksum;
__END__
=head1 NAME
schema_checksum.pl - calculate and print a db checksum
=head1 SYNOPSIS
schema_checksum.pl --dsn dbi:Pg:dbname=your_db;host=db.example.org
=head1 DESCRIPTION
Please see C<perldoc DBIx::SchemaChecksum> for more information.
=head1 OPTIONS
See L<DBIx::SchemaChecksum> section C<Attributes generated by Moose>
=head1 AUTHOR
Thomas Klausner, C<< <domm at cpan.org> >>
=head1 COPYRIGHT & LICENSE
Copyright 2008 Thomas Klausner, revdev.at, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut