From 420843592421c38e9c4bc02448c483668152184c Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 14 Feb 2015 17:08:00 +0100
Subject: initial commit

---
 bin/iris-delay-stats | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 bin/iris-delay-stats

(limited to 'bin')

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.
-- 
cgit v1.2.3