#!/usr/bin/perl

use strict;
use warnings;
use Kwiki::Kwiki;
use Pod::Usage;

unless (@ARGV) {
    pod2usage(-noperldoc => 1, -verbose => 2);
}

my %todo;
for (@ARGV) {
    s/^-//;
    $todo{$_} = 1;
}

if ($todo{init}) {
    Kwiki::Kwiki->make_init;
}

if ($todo{src}) {
    Kwiki::Kwiki->make_src;
}

if ($todo{cpan}) {
    Kwiki::Kwiki->make_cpan_lib;
}

if ($todo{lib}) {
    Kwiki::Kwiki->make_lib;
}

if ($todo{dist}) {
    Kwiki::Kwiki->make_dist;
}

__DATA__

=head1 NAME

kk - KwikiKwiki command line interface.

=head1 DESCRIPTION

Please see L<Kwiki::Kwiki> for all documentation.

=head1 AUTHORS

Ingy döt Net <ingy@cpan.org>

Kang-min Liu <gugod@gugod.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net, Kang-min Liu. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut
