root/lang/perl/Config-Pit/trunk/bin/ppit @ 4218

#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Path::Class;
use YAML;
use File::Temp;
use Pod::Usage;

use lib file( $FindBin::RealBin, '..', 'lib' )->stringify;
use Config::Pit;

({
    get    => sub { printf "%s\n", YAML::Dump(Config::Pit::get(shift)) },
    set    => \&Config::Pit::set,
    switch => \&Config::Pit::switch,
}->{(shift || '')} || sub { pod2usage } )->($ARGV[1]);

__END__

=head1 SYNOPSIS

    $ ppit [get|set|switch] <value>
    $ ppit help

 Options:
        get <name>        => Get values of <name>.
        set <name>        => Config values of name with $EDITOR.
        switch <profile>  => Switch profile to <profile>.
        help              => show this manual

=head1 DESCRIPTION

pit command for Perl

=head1 AUTHOR

Kazuhiro Osawa

=head1 LICENSE

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

=head1 SEE ALSO

L<pit gem|http://lowreal.rubyforge.org/pit/>
C<Config::Pit>

=cut