1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/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 => \&Config::Pit::pipe,
set => \&pit_set,
switch => \&pit_switch,
}->{(shift || '')} || \&pod2usage )->($ARGV[1]);
__END__
=head1 NAME
ppit - pit for perl
=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<http://lowreal.rubyforge.org/pit/>
L<Config::Pit>
=cut
|
