initial commit

1 files changed, 58 insertions, 0 deletions

diff --git a/bin/iris-delay-stats b/bin/iris-delay-stats
new file mode 100755
index 0000000..32c38a8
--- /dev/null
+++ b/bin/iris-delay-stats
@@ -0,0 +1,58 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.010;
+
+use List::Util qw(first);
+
+our $VERSION = '0.00';
+
+sub table_exists {
+	my $db = shift;
+	my $table = shift;
+	my @tables = $db->tables('','','','TABLE');
+
+	if (first { $_ eq $table } @tables) {
+		return 1;
+	}
+	return 0;
+}
+
+__END__
+
+=head1 NAME
+
+=head1 SYNOPSIS
+
+=head1 VERSION
+
+=head1 DESCRIPTION
+
+=head1 OPTIONS
+
+=over
+
+=back
+
+=head1 EXIT STATUS
+
+=head1 CONFIGURATION
+
+None.
+
+=head1 DEPENDENCIES
+
+=over
+
+=back
+
+=head1 BUGS AND LIMITATIONS
+
+=head1 AUTHOR
+
+Copyright (C) 2015 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>
+
+=head1 LICENSE
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.