File Coverage

blib/lib/DBD/Sys/Plugin/Meta.pm
Criterion Covered Total %
statement 13 14 92.8
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 2 100.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             package DBD::Sys::Plugin::Meta;
2              
3 3     3   2302 use strict;
  3         6  
  3         87  
4 3     3   15 use warnings;
  3         4  
  3         69  
5              
6 3     3   13 use vars qw($VERSION);
  3         6  
  3         104  
7 3     3   12 use base qw(DBD::Sys::Plugin);
  3         6  
  3         491  
8              
9             $VERSION = 0.100;
10              
11             =head1 NAME
12              
13             DBD::Sys::Plugin::Meta - provides tables with meta information about DBD::Sys.
14              
15             =head1 ISA
16              
17             DBD::Sys::Plugin::Meta
18             ISA DBD::Sys::Plugin
19              
20             =head1 DESCRIPTION
21              
22             This plugin is created to manage the tables containing DBD::Sys meta data.
23              
24             =head2 TABLES
25              
26             Provided tables:
27              
28             =head3 alltables
29              
30             Table containing the list of available tables. See
31             L for details.
32              
33             =head1 METHODS
34              
35             =cut
36              
37             require DBD::Sys::Plugin::Meta::AllTables;
38              
39             my %supportedTables = ( alltables => 'DBD::Sys::Plugin::Meta::AllTables', );
40              
41             =head2 get_supported_tables
42              
43             Delivers the supported meta tables.
44              
45             =cut
46              
47 4     4 1 21 sub get_supported_tables() { %supportedTables }
48              
49             =head2 get_priority
50              
51             Delivers the default priority for the meta tables, which is 100.
52              
53             =cut
54              
55 0     0 1   sub get_priority { return 100; }
56              
57             =head1 PREREQUISITES
58              
59             The meta tables provide information about the tables in DBD::Sys, so
60             their only requirement is DBD::Sys.
61              
62             =head1 BUGS & LIMITATIONS
63              
64             No known bugs at this moment.
65              
66             =head1 AUTHOR
67              
68             Jens Rehsack Alexander Breibach
69             CPAN ID: REHSACK
70             rehsack@cpan.org alexander.breibach@googlemail.com
71             http://www.rehsack.de/
72              
73             =head1 COPYRIGHT
74              
75             This program is free software; you can redistribute
76             it and/or modify it under the same terms as Perl itself.
77              
78             The full text of the license can be found in the
79             LICENSE file included with this module.
80              
81             =head1 SUPPORT
82              
83             Free support can be requested via regular CPAN bug-tracking system. There is
84             no guaranteed reaction time or solution time, but it's always tried to give
85             accept or reject a reported ticket within a week. It depends on business load.
86             That doesn't mean that ticket via rt aren't handles as soon as possible,
87             that means that soon depends on how much I have to do.
88              
89             Business and commercial support should be acquired from the authors via
90             preferred freelancer agencies.
91              
92             =cut
93              
94             1;