File Coverage

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