File Coverage

blib/lib/App/FTNDB/Command/drop.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition n/a
subroutine 1 3 33.3
pod 2 2 100.0
total 6 11 54.5


line stmt bran cond sub pod time code
1             package App::FTNDB::Command::drop;
2 2     2   2811 use App::FTNDB -command;
  2         4  
  2         16  
3              
4             =head1 NAME
5              
6             App::FTNDB::Command::drop - The drop command for Fidonet/FTN Database processing.
7              
8             =head1 DESCRIPTION
9              
10             Administration of a database for Fidonet/FTN related processing. The SQL
11             database engine is one for which a DBD module exists, defaulting to SQLite.
12              
13             =head2 COMMANDS
14              
15             =over
16              
17             =item drop database name
18              
19             C
20              
21             This will drop a database if it exists in an SQL database server
22             being used for Fidonet/FTN processing, where I is the name
23             of the database to be dropped.
24              
25             =item drop table name
26              
27             C
28              
29             This will drop a database table if it exists in an SQL database
30             server being used for Fidonet/FTN processing, where I is
31             the name of the table to be dropped.
32              
33             =back
34              
35             =head2 FUNCTIONS
36              
37             =over
38              
39             =item I
40              
41             Provides the command usage.
42              
43             =cut
44              
45 0     0 1   sub usage_desc { "ftndbadm %o database|table name" }
46              
47             =item I
48              
49             Execute the command
50              
51             =cut
52              
53             sub execute {
54 0     0 1   my ($self, $opt, $args) = @_;
55              
56 0           print "The drop command is not yet implemented.\n";
57              
58             }
59              
60             =back
61              
62             =head1 AUTHOR
63              
64             Robert James Clay, C<< >>
65              
66             =head1 BUGS
67              
68             Please report any bugs or feature requests via the web interface at
69             L. I will be notified,
70             and then you'll automatically be notified of progress on your bug
71             as I make changes.
72              
73             Note that you can also report any bugs or feature requests to
74             C, or through the web interface at
75             L;
76             however, the FTN Database application Issue tracker at the
77             SoureForge project is preferred.
78              
79              
80             =head1 SUPPORT
81              
82             You can find documentation for this module with the perldoc command.
83              
84             perldoc App::FTNDB::Command::drop
85              
86             You can also look for information at:
87              
88             =over 4
89              
90             =item * FTN Database application issue tracker
91              
92             L
93              
94             =item * RT: CPAN's request tracker
95              
96             L
97              
98             =item * Search CPAN
99              
100             L
101              
102             =back
103              
104              
105             =head1 SEE ALSO
106              
107             L, L, L, L, L,
108             L, L
109              
110              
111             =head1 COPYRIGHT & LICENSE
112              
113             Copyright 2012-2013 Robert James Clay, all rights reserved.
114              
115             This program is free software; you can redistribute it and/or modify it
116             under the same terms as Perl itself.
117              
118             =cut
119              
120             1;