File Coverage

blib/lib/MMM/OracleDump.pm
Criterion Covered Total %
statement 6 15 40.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 19 42.1


line stmt bran cond sub pod time code
1             package MMM::OracleDump;
2 1     1   600 use strict;
  1         1  
  1         36  
3 1     1   5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         1  
  1         219  
4             require Exporter;
5             @ISA = qw(Exporter AutoLoader);
6             @EXPORT = qw(
7             get_table_list
8             );
9             $VERSION = '0.01';
10              
11              
12              
13             sub get_table_list {
14 0     0 0   my $dbh = shift;
15 0           my $sql = qq/ SELECT TABLE_NAME FROM CAT WHERE TABLE_TYPE='TABLE' /;
16 0           my $qh = $dbh->prepare($sql);
17 0           $qh->execute();
18 0           my @tables;
19             my $row;
20 0           while ($row = $qh->fetch() ) {
21 0           push @tables, $row->[0];
22             }
23 0           $qh->finish;
24 0           return @tables;
25             }
26              
27              
28             1;
29             __END__