summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-02-14 17:08:00 +0100
committerDaniel Friesel <derf@finalrewind.org>2015-02-14 17:08:00 +0100
commit420843592421c38e9c4bc02448c483668152184c (patch)
treeeeafa5dae54de8e7b893cc5504e0bd222db8505a /bin
initial commit
Diffstat (limited to 'bin')
-rwxr-xr-xbin/iris-delay-stats58
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.