File Coverage

blib/lib/DBD/Sys/Plugin/Meta/AllTables.pm
Criterion Covered Total %
statement 16 22 72.7
branch 0 2 0.0
condition n/a
subroutine 6 8 75.0
pod 3 3 100.0
total 25 35 71.4


line stmt bran cond sub pod time code
1             package DBD::Sys::Plugin::Meta::AllTables;
2              
3 3     3   13 use strict;
  3         6  
  3         89  
4 3     3   14 use warnings;
  3         5  
  3         79  
5              
6 3     3   13 use vars qw($VERSION @colNames);
  3         3  
  3         136  
7 3     3   13 use base qw(DBD::Sys::Table);
  3         5  
  3         1698  
8              
9 3     3   17 use Params::Util qw(_ARRAY);
  3         6  
  3         599  
10              
11             =pod
12              
13             =head1 NAME
14              
15             DBD::Sys::Plugin::Meta::AllTables - DBD::Sys Table Overview
16              
17             =head1 SYNOPSIS
18              
19             $alltables = $dbh->selectall_hashref("select * from alltables", "table_name");
20              
21             =head1 ISA
22              
23             DBD::Sys::Plugin::Meta::AllTables
24             ISA DBD::Sys::Table
25              
26             =cut
27              
28             @colNames = qw(table_qualifier table_owner table_name table_type remarks);
29             $VERSION = "0.102";
30              
31             =head1 DESCRIPTION
32              
33             Columns:
34              
35             =over 8
36              
37             =item table_qualifier
38              
39             Unused, I.
40              
41             =item table_owner
42              
43             Unused, I
44              
45             =item table_name
46              
47             Name of the table
48              
49             =item table_type
50              
51             Class name of the table implementation
52              
53             =item remarks
54              
55             Unused, I
56              
57             =back
58              
59             =head1 METHODS
60              
61             =head2 get_col_names
62              
63             Returns the column names of the table
64              
65             =head2 get_priority
66              
67             Returns 100 - the lowest priority used by DBD::Sys delivered tables.
68              
69             =cut
70              
71 1     1 1 7 sub get_col_names() { @colNames }
72 0     0 1   sub get_priority { return 100; }
73              
74             =head2 collect_data
75              
76             Collects the data for the table using the plugin manager.
77             See L for details.
78              
79             =cut
80              
81             sub collect_data()
82             {
83 0     0 1   my @data;
84 0           my %tables = $_[0]->{database}->{sys_pluginmgr}->get_table_details();
85              
86 0           while ( my ( $table, $class ) = each(%tables) )
87             {
88 0 0         push( @data,
89             [ undef, undef, $table, 'TABLE', _ARRAY($class) ? join( ',', @$class ) : $class ] );
90             }
91              
92 0           return \@data;
93             }
94              
95             =head1 PREREQUISITES
96              
97             The table C provide information about the tables in DBD::Sys, so
98             their only requirement is DBD::Sys.
99              
100             =head1 BUGS & LIMITATIONS
101              
102             No known bugs at this moment.
103              
104             =head1 AUTHOR
105              
106             Jens Rehsack Alexander Breibach
107             CPAN ID: REHSACK
108             rehsack@cpan.org alexander.breibach@googlemail.com
109             http://www.rehsack.de/
110              
111             =head1 COPYRIGHT
112              
113             This program is free software; you can redistribute
114             it and/or modify it under the same terms as Perl itself.
115              
116             The full text of the license can be found in the
117             LICENSE file included with this module.
118              
119             =head1 SUPPORT
120              
121             Free support can be requested via regular CPAN bug-tracking system. There is
122             no guaranteed reaction time or solution time, but it's always tried to give
123             accept or reject a reported ticket within a week. It depends on business load.
124             That doesn't mean that ticket via rt aren't handles as soon as possible,
125             that means that soon depends on how much I have to do.
126              
127             Business and commercial support should be acquired from the authors via
128             preferred freelancer agencies.
129              
130             =cut
131              
132             1;