Gecko [ 8.222.176.185 ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
SOAPsh.bat	3.35 KB	-rwxrwxrwx
SOAPsh.pl	2.75 KB	-rw-rw-rw-
adminer.php	465.43 KB	-rw-rw-rw-
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-
chartex	5.67 KB	-rw-rw-rw-
chartex.bat	6.47 KB	-rwxrwxrwx
config_data	7.2 KB	-rw-rw-rw-
config_data.bat	7.73 KB	-rwxrwxrwx
corelist.bat	15.75 KB	-rwxrwxrwx
cpan	8.06 KB	-rw-rw-rw-
cpan-mirrors	4.18 KB	-rw-rw-rw-
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx
cpan-outdated	8.85 KB	-rw-rw-rw-
cpan-outdated.bat	9.67 KB	-rwxrwxrwx
cpan.bat	9.16 KB	-rwxrwxrwx
cpan2dist	21.22 KB	-rw-rw-rw-
cpan2dist.bat	22.39 KB	-rwxrwxrwx
cpandb	6.6 KB	-rw-rw-rw-
cpandb.bat	7.37 KB	-rwxrwxrwx
cpanel_json_xs	9.75 KB	-rw-rw-rw-
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx
cpanfile-dump	3.45 KB	-rw-rw-rw-
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx
cpanm	295.67 KB	-rw-rw-rw-
cpanm.bat	297.23 KB	-rwxrwxrwx
cpanp	3.22 KB	-rw-rw-rw-
cpanp-run-perl	459 B	-rw-rw-rw-
cpanp-run-perl.bat	990 B	-rwxrwxrwx
cpanp.bat	3.84 KB	-rwxrwxrwx
crc32	1.01 KB	-rw-rw-rw-
crc32.bat	1.57 KB	-rwxrwxrwx
dbicadmin	7 KB	-rw-rw-rw-
dbicadmin.bat	7.87 KB	-rwxrwxrwx
dbilogstrip	1.39 KB	-rw-rw-rw-
dbilogstrip.bat	1.89 KB	-rwxrwxrwx
dbiprof	6.31 KB	-rw-rw-rw-
dbiprof.bat	6.82 KB	-rwxrwxrwx
dbiproxy	5.44 KB	-rw-rw-rw-
dbiproxy.bat	5.95 KB	-rwxrwxrwx
enc2xs	40.68 KB	-rw-rw-rw-
enc2xs.bat	42.87 KB	-rwxrwxrwx
encguess	2.91 KB	-rw-rw-rw-
encguess.bat	3.8 KB	-rwxrwxrwx
exe_update.bat	4.71 KB	-rwxrwxrwx
exe_update.pl	4.05 KB	-rw-rw-rw-
exetype.bat	3.53 KB	-rwxrwxrwx
extract_vba	2.98 KB	-rw-rw-rw-
extract_vba.bat	3.62 KB	-rwxrwxrwx
factor.bat	3.77 KB	-rwxrwxrwx
factor.pl	3.16 KB	-rw-rw-rw-
findrule	3.24 KB	-rw-rw-rw-
findrule.bat	3.88 KB	-rwxrwxrwx
h2ph.bat	30.27 KB	-rwxrwxrwx
h2xs.bat	62.43 KB	-rwxrwxrwx
htmltree	1.28 KB	-rw-rw-rw-
htmltree.bat	1.81 KB	-rwxrwxrwx
hypnotoad	1.03 KB	-rw-rw-rw-
hypnotoad.bat	1.58 KB	-rwxrwxrwx
instmodsh	4.09 KB	-rw-rw-rw-
instmodsh.bat	5.03 KB	-rwxrwxrwx
json_pp	4.77 KB	-rw-rw-rw-
json_pp.bat	5.52 KB	-rwxrwxrwx
json_xs	6.84 KB	-rw-rw-rw-
json_xs.bat	7.6 KB	-rwxrwxrwx
kwalitee-metrics	2.34 KB	-rw-rw-rw-
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-
libnetcfg.bat	16.88 KB	-rwxrwxrwx
libstdc++-6.dll	1.36 MB	-rw-rw-rw-
libwinpthread-1.dll	51 KB	-rw-rw-rw-
llw32helper.bat	4.8 KB	-rwxrwxrwx
llw32helper.pl	4.13 KB	-rw-rw-rw-
lwp-download	10.04 KB	-rw-rw-rw-
lwp-download.bat	10.88 KB	-rwxrwxrwx
lwp-dump	2.64 KB	-rw-rw-rw-
lwp-dump.bat	3.26 KB	-rwxrwxrwx
lwp-mirror	2.35 KB	-rw-rw-rw-
lwp-mirror.bat	2.96 KB	-rwxrwxrwx
lwp-request	15.81 KB	-rw-rw-rw-
lwp-request.bat	16.88 KB	-rwxrwxrwx
mech-dump	4.74 KB	-rw-rw-rw-
mech-dump.bat	5.44 KB	-rwxrwxrwx
minicpan	5.36 KB	-rw-rw-rw-
minicpan.bat	6.05 KB	-rwxrwxrwx
module-version	2.06 KB	-rw-rw-rw-
module-version.bat	2.65 KB	-rwxrwxrwx
mojo	408 B	-rw-rw-rw-
mojo.bat	953 B	-rwxrwxrwx
moose-outdated	427 B	-rw-rw-rw-
moose-outdated.bat	977 B	-rwxrwxrwx
morbo	2.15 KB	-rw-rw-rw-
morbo.bat	2.72 KB	-rwxrwxrwx
mymeta-cpanfile	2.7 KB	-rw-rw-rw-
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx
nssm_32.exe	288 KB	-rwxrwxrwx
nssm_64.exe	323.5 KB	-rwxrwxrwx
package-stash-conflicts	463 B	-rw-rw-rw-
package-stash-conflicts.bat	1013 B	-rwxrwxrwx
parinstallppd	3.35 KB	-rw-rw-rw-
parinstallppd.bat	3.99 KB	-rwxrwxrwx
perl.exe	39 KB	-rwxrwxrwx
perl5.32.1.exe	39 KB	-rwxrwxrwx
perl532.dll	3.26 MB	-rw-rw-rw-
perlbug.bat	46.8 KB	-rwxrwxrwx
perldoc.bat	1016 B	-rwxrwxrwx
perlglob.bat	1.95 KB	-rwxrwxrwx
perlglob.exe	17 KB	-rwxrwxrwx
perlivp.bat	11.72 KB	-rwxrwxrwx
perlthanks.bat	46.8 KB	-rwxrwxrwx
perltidy	175.27 KB	-rw-rw-rw-
perltidy.bat	180.32 KB	-rwxrwxrwx
pgplet	10.37 KB	-rw-rw-rw-
pgplet.bat	11.22 KB	-rwxrwxrwx
piconv	8.07 KB	-rw-rw-rw-
piconv.bat	9.13 KB	-rwxrwxrwx
pkg-config	46.94 KB	-rw-rw-rw-
pkg-config.bat	49.2 KB	-rwxrwxrwx
pl2bat.bat	11.49 KB	-rwxrwxrwx
pl2bat.pl	10.4 KB	-rw-rw-rw-
pl2pm.bat	5.56 KB	-rwxrwxrwx
pler	540 B	-rw-rw-rw-
pler.bat	1.07 KB	-rwxrwxrwx
pm-uninstall	820 B	-rw-rw-rw-
pm-uninstall.bat	1.28 KB	-rwxrwxrwx
pod2html.bat	5.02 KB	-rwxrwxrwx
pod2latex	10.39 KB	-rw-rw-rw-
pod2latex.bat	10.92 KB	-rwxrwxrwx
pod2man.bat	15.42 KB	-rwxrwxrwx
pod2text.bat	11.29 KB	-rwxrwxrwx
pod2usage	4.16 KB	-rw-rw-rw-
pod2usage.bat	4.67 KB	-rwxrwxrwx
pod_cover	1.37 KB	-rw-rw-rw-
pod_cover.bat	1.94 KB	-rwxrwxrwx
podchecker	3.7 KB	-rw-rw-rw-
podchecker.bat	4.21 KB	-rwxrwxrwx
podselect	2.56 KB	-rw-rw-rw-
podselect.bat	3.07 KB	-rwxrwxrwx
ppd2par	4.64 KB	-rw-rw-rw-
ppd2par.bat	5.32 KB	-rwxrwxrwx
ppm.bat	35.53 KB	-rwxrwxrwx
ppm.pl	33.99 KB	-rw-rw-rw-
primes.bat	21.45 KB	-rwxrwxrwx
primes.pl	20.34 KB	-rw-rw-rw-
prove.bat	14.07 KB	-rwxrwxrwx
ptar	3.38 KB	-rw-rw-rw-
ptar.bat	4.28 KB	-rwxrwxrwx
ptardiff	2.48 KB	-rw-rw-rw-
ptardiff.bat	3.35 KB	-rwxrwxrwx
ptargrep	4.19 KB	-rw-rw-rw-
ptargrep.bat	5.14 KB	-rwxrwxrwx
pwnkit	10.99 KB	-rw-rw-rw-
runperl.bat	2.72 KB	-rwxrwxrwx
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx
search.bat	55.83 KB	-rwxrwxrwx
shasum.bat	10.48 KB	-rwxrwxrwx
splain.bat	20.43 KB	-rwxrwxrwx
streamzip	5.45 KB	-rw-rw-rw-
streamzip.bat	6.17 KB	-rwxrwxrwx
stubmaker.bat	4.01 KB	-rwxrwxrwx
stubmaker.pl	3.35 KB	-rw-rw-rw-
test-yaml	1017 B	-rw-rw-rw-
test-yaml.bat	1.56 KB	-rwxrwxrwx
tpage	8.85 KB	-rw-rw-rw-
tpage.bat	9.64 KB	-rwxrwxrwx
ttree	38.21 KB	-rw-rw-rw-
ttree.bat	39.9 KB	-rwxrwxrwx
use-devel-checklib	2.7 KB	-rw-rw-rw-
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx
whirlpoolsum	4.93 KB	-rw-rw-rw-
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx
wperl.exe	39 KB	-rwxrwxrwx
xml_grep	13.32 KB	-rw-rw-rw-
xml_grep.bat	14.3 KB	-rwxrwxrwx
xml_merge	3.89 KB	-rw-rw-rw-
xml_merge.bat	4.55 KB	-rwxrwxrwx
xml_pp	7.82 KB	-rw-rw-rw-
xml_pp.bat	8.61 KB	-rwxrwxrwx
xml_spellcheck	6.34 KB	-rw-rw-rw-
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx
xml_split	21.13 KB	-rw-rw-rw-
xml_split.bat	22.27 KB	-rwxrwxrwx
xsubpp.bat	5.78 KB	-rwxrwxrwx
zipdetails	56.01 KB	-rw-rw-rw-
zipdetails.bat	58.95 KB	-rwxrwxrwx

Name

Size

Permission

Action

.mad-root

0 B

-rw-rw-rw-

SOAPsh.bat

3.35 KB

-rwxrwxrwx

SOAPsh.pl

2.75 KB

-rw-rw-rw-

adminer.php

465.43 KB

-rw-rw-rw-

bdf2gdfont.bat

5.26 KB

-rwxrwxrwx

bdf2gdfont.pl

4.75 KB

-rw-rw-rw-

chartex

5.67 KB

-rw-rw-rw-

chartex.bat

6.47 KB

-rwxrwxrwx

config_data

7.2 KB

-rw-rw-rw-

config_data.bat

7.73 KB

-rwxrwxrwx

corelist.bat

15.75 KB

-rwxrwxrwx

cpan

8.06 KB

-rw-rw-rw-

cpan-mirrors

4.18 KB

-rw-rw-rw-

cpan-mirrors.bat

5.1 KB

-rwxrwxrwx

cpan-outdated

8.85 KB

-rw-rw-rw-

cpan-outdated.bat

9.67 KB

-rwxrwxrwx

cpan.bat

9.16 KB

-rwxrwxrwx

cpan2dist

21.22 KB

-rw-rw-rw-

cpan2dist.bat

22.39 KB

-rwxrwxrwx

cpandb

6.6 KB

-rw-rw-rw-

cpandb.bat

7.37 KB

-rwxrwxrwx

cpanel_json_xs

9.75 KB

-rw-rw-rw-

cpanel_json_xs.bat

10.58 KB

-rwxrwxrwx

cpanfile-dump

3.45 KB

-rw-rw-rw-

cpanfile-dump.bat

4.08 KB

-rwxrwxrwx

cpanm

295.67 KB

-rw-rw-rw-

cpanm.bat

297.23 KB

-rwxrwxrwx

cpanp

3.22 KB

-rw-rw-rw-

cpanp-run-perl

459 B

-rw-rw-rw-

cpanp-run-perl.bat

990 B

-rwxrwxrwx

cpanp.bat

3.84 KB

-rwxrwxrwx

crc32

1.01 KB

-rw-rw-rw-

crc32.bat

1.57 KB

-rwxrwxrwx

dbicadmin

7 KB

-rw-rw-rw-

dbicadmin.bat

7.87 KB

-rwxrwxrwx

dbilogstrip

1.39 KB

-rw-rw-rw-

dbilogstrip.bat

1.89 KB

-rwxrwxrwx

dbiprof

6.31 KB

-rw-rw-rw-

dbiprof.bat

6.82 KB

-rwxrwxrwx

dbiproxy

5.44 KB

-rw-rw-rw-

dbiproxy.bat

5.95 KB

-rwxrwxrwx

enc2xs

40.68 KB

-rw-rw-rw-

enc2xs.bat

42.87 KB

-rwxrwxrwx

encguess

2.91 KB

-rw-rw-rw-

encguess.bat

3.8 KB

-rwxrwxrwx

exe_update.bat

4.71 KB

-rwxrwxrwx

exe_update.pl

4.05 KB

-rw-rw-rw-

exetype.bat

3.53 KB

-rwxrwxrwx

extract_vba

2.98 KB

-rw-rw-rw-

extract_vba.bat

3.62 KB

-rwxrwxrwx

factor.bat

3.77 KB

-rwxrwxrwx

factor.pl

3.16 KB

-rw-rw-rw-

findrule

3.24 KB

-rw-rw-rw-

findrule.bat

3.88 KB

-rwxrwxrwx

h2ph.bat

30.27 KB

-rwxrwxrwx

h2xs.bat

62.43 KB

-rwxrwxrwx

htmltree

1.28 KB

-rw-rw-rw-

htmltree.bat

1.81 KB

-rwxrwxrwx

hypnotoad

1.03 KB

-rw-rw-rw-

hypnotoad.bat

1.58 KB

-rwxrwxrwx

instmodsh

4.09 KB

-rw-rw-rw-

instmodsh.bat

5.03 KB

-rwxrwxrwx

json_pp

4.77 KB

-rw-rw-rw-

json_pp.bat

5.52 KB

-rwxrwxrwx

json_xs

6.84 KB

-rw-rw-rw-

json_xs.bat

7.6 KB

-rwxrwxrwx

kwalitee-metrics

2.34 KB

-rw-rw-rw-

kwalitee-metrics.bat

2.96 KB

-rwxrwxrwx

libgcc_s_seh-1.dll

74.5 KB

-rw-rw-rw-

libnetcfg.bat

16.88 KB

-rwxrwxrwx

libstdc++-6.dll

1.36 MB

-rw-rw-rw-

libwinpthread-1.dll

51 KB

-rw-rw-rw-

llw32helper.bat

4.8 KB

-rwxrwxrwx

llw32helper.pl

4.13 KB

-rw-rw-rw-

lwp-download

10.04 KB

-rw-rw-rw-

lwp-download.bat

10.88 KB

-rwxrwxrwx

lwp-dump

2.64 KB

-rw-rw-rw-

lwp-dump.bat

3.26 KB

-rwxrwxrwx

lwp-mirror

2.35 KB

-rw-rw-rw-

lwp-mirror.bat

2.96 KB

-rwxrwxrwx

lwp-request

15.81 KB

-rw-rw-rw-

lwp-request.bat

16.88 KB

-rwxrwxrwx

mech-dump

4.74 KB

-rw-rw-rw-

mech-dump.bat

5.44 KB

-rwxrwxrwx

minicpan

5.36 KB

-rw-rw-rw-

minicpan.bat

6.05 KB

-rwxrwxrwx

module-version

2.06 KB

-rw-rw-rw-

module-version.bat

2.65 KB

-rwxrwxrwx

mojo

408 B

-rw-rw-rw-

mojo.bat

953 B

-rwxrwxrwx

moose-outdated

427 B

-rw-rw-rw-

moose-outdated.bat

977 B

-rwxrwxrwx

morbo

2.15 KB

-rw-rw-rw-

morbo.bat

2.72 KB

-rwxrwxrwx

mymeta-cpanfile

2.7 KB

-rw-rw-rw-

mymeta-cpanfile.bat

3.32 KB

-rwxrwxrwx

nssm_32.exe

288 KB

-rwxrwxrwx

nssm_64.exe

323.5 KB

-rwxrwxrwx

package-stash-conflicts

463 B

-rw-rw-rw-

package-stash-conflicts.bat

1013 B

-rwxrwxrwx

parinstallppd

3.35 KB

-rw-rw-rw-

parinstallppd.bat

3.99 KB

-rwxrwxrwx

perl.exe

39 KB

-rwxrwxrwx

perl5.32.1.exe

39 KB

-rwxrwxrwx

perl532.dll

3.26 MB

-rw-rw-rw-

perlbug.bat

46.8 KB

-rwxrwxrwx

perldoc.bat

1016 B

-rwxrwxrwx

perlglob.bat

1.95 KB

-rwxrwxrwx

perlglob.exe

17 KB

-rwxrwxrwx

perlivp.bat

11.72 KB

-rwxrwxrwx

perlthanks.bat

46.8 KB

-rwxrwxrwx

perltidy

175.27 KB

-rw-rw-rw-

perltidy.bat

180.32 KB

-rwxrwxrwx

pgplet

10.37 KB

-rw-rw-rw-

pgplet.bat

11.22 KB

-rwxrwxrwx

piconv

8.07 KB

-rw-rw-rw-

piconv.bat

9.13 KB

-rwxrwxrwx

pkg-config

46.94 KB

-rw-rw-rw-

pkg-config.bat

49.2 KB

-rwxrwxrwx

pl2bat.bat

11.49 KB

-rwxrwxrwx

pl2bat.pl

10.4 KB

-rw-rw-rw-

pl2pm.bat

5.56 KB

-rwxrwxrwx

pler

540 B

-rw-rw-rw-

pler.bat

1.07 KB

-rwxrwxrwx

pm-uninstall

820 B

-rw-rw-rw-

pm-uninstall.bat

1.28 KB

-rwxrwxrwx

pod2html.bat

5.02 KB

-rwxrwxrwx

pod2latex

10.39 KB

-rw-rw-rw-

pod2latex.bat

10.92 KB

-rwxrwxrwx

pod2man.bat

15.42 KB

-rwxrwxrwx

pod2text.bat

11.29 KB

-rwxrwxrwx

pod2usage

4.16 KB

-rw-rw-rw-

pod2usage.bat

4.67 KB

-rwxrwxrwx

pod_cover

1.37 KB

-rw-rw-rw-

pod_cover.bat

1.94 KB

-rwxrwxrwx

podchecker

3.7 KB

-rw-rw-rw-

podchecker.bat

4.21 KB

-rwxrwxrwx

podselect

2.56 KB

-rw-rw-rw-

podselect.bat

3.07 KB

-rwxrwxrwx

ppd2par

4.64 KB

-rw-rw-rw-

ppd2par.bat

5.32 KB

-rwxrwxrwx

ppm.bat

35.53 KB

-rwxrwxrwx

ppm.pl

33.99 KB

-rw-rw-rw-

primes.bat

21.45 KB

-rwxrwxrwx

primes.pl

20.34 KB

-rw-rw-rw-

prove.bat

14.07 KB

-rwxrwxrwx

ptar

3.38 KB

-rw-rw-rw-

ptar.bat

4.28 KB

-rwxrwxrwx

ptardiff

2.48 KB

-rw-rw-rw-

ptardiff.bat

3.35 KB

-rwxrwxrwx

ptargrep

4.19 KB

-rw-rw-rw-

ptargrep.bat

5.14 KB

-rwxrwxrwx

pwnkit

10.99 KB

-rw-rw-rw-

runperl.bat

2.72 KB

-rwxrwxrwx

scan-perl-prereqs-nqlite

5.28 KB

-rw-rw-rw-

scan-perl-prereqs-nqlite.bat

6 KB

-rwxrwxrwx

search.bat

55.83 KB

-rwxrwxrwx

shasum.bat

10.48 KB

-rwxrwxrwx

splain.bat

20.43 KB

-rwxrwxrwx

streamzip

5.45 KB

-rw-rw-rw-

streamzip.bat

6.17 KB

-rwxrwxrwx

stubmaker.bat

4.01 KB

-rwxrwxrwx

stubmaker.pl

3.35 KB

-rw-rw-rw-

test-yaml

1017 B

-rw-rw-rw-

test-yaml.bat

1.56 KB

-rwxrwxrwx

tpage

8.85 KB

-rw-rw-rw-

tpage.bat

9.64 KB

-rwxrwxrwx

ttree

38.21 KB

-rw-rw-rw-

ttree.bat

39.9 KB

-rwxrwxrwx

use-devel-checklib

2.7 KB

-rw-rw-rw-

use-devel-checklib.bat

3.31 KB

-rwxrwxrwx

whirlpoolsum

4.93 KB

-rw-rw-rw-

whirlpoolsum.bat

5.67 KB

-rwxrwxrwx

wperl.exe

39 KB

-rwxrwxrwx

xml_grep

13.32 KB

-rw-rw-rw-

xml_grep.bat

14.3 KB

-rwxrwxrwx

xml_merge

3.89 KB

-rw-rw-rw-

xml_merge.bat

4.55 KB

-rwxrwxrwx

xml_pp

7.82 KB

-rw-rw-rw-

xml_pp.bat

8.61 KB

-rwxrwxrwx

xml_spellcheck

6.34 KB

-rw-rw-rw-

xml_spellcheck.bat

7.1 KB

-rwxrwxrwx

xml_split

21.13 KB

-rw-rw-rw-

xml_split.bat

22.27 KB

-rwxrwxrwx

xsubpp.bat

5.78 KB

-rwxrwxrwx

zipdetails

56.01 KB

-rw-rw-rw-

zipdetails.bat

58.95 KB

-rwxrwxrwx

Code Editor : dbicadmin

#!perl

use strict;
use warnings;

BEGIN {
  use DBIx::Class;
  die (  'The following modules are required for the dbicadmin utility: '
       . DBIx::Class::Optional::Dependencies->req_missing_for ('admin_script')
       . "\n"
  ) unless DBIx::Class::Optional::Dependencies->req_ok_for ('admin_script');
}

use DBIx::Class::Admin::Descriptive;
#use Getopt::Long::Descriptive;
use DBIx::Class::Admin;

my $short_description = "utility for administrating DBIx::Class schemata";
my $synopsis_text =q|
  deploy a schema to a database
  %c --schema=MyApp::Schema \
    --connect='["dbi:SQLite:my.db", "", ""]' \
    --deploy

update an existing record
  %c --schema=MyApp::Schema --class=Employee \
    --connect='["dbi:SQLite:my.db", "", ""]' \
    --op=update --set='{ "name": "New_Employee" }'
|;

my ($opts, $usage) = describe_options(
    "%c: %o",
  (
    ['Actions'],
    ["action" => hidden => { one_of => [
      ['create' => 'Create version diffs needs preversion'],
      ['upgrade' => 'Upgrade the database to the current schema'],
      ['install' => 'Install the schema version tables to an existing database'],
      ['deploy' => 'Deploy the schema to the database'],
      ['select'   => 'Select data from the schema'],
      ['insert'   => 'Insert data into the schema'],
      ['update'   => 'Update data in the schema'],
      ['delete'   => 'Delete data from the schema'],
      ['op:s' => 'compatibility option all of the above can be supplied as --op=<action>'],
      ['help' => 'display this help', { implies => { schema_class => '__dummy__' } } ],
      ['documentation-as-pod:s' => 'hidden', { implies => { schema_class => '__dummy__' } } ],
    ], required => 1 }],
    ['Arguments'],
    ["configuration" => hidden => { one_of => [
      ['config-file|config:s' => 'Supply the config file for parsing by Config::Any', { depends => 'config_stanza'} ],
      ['connect-info:s%' => 'Supply the connect info as trailing options e.g. --connect-info dsn=<dsn> user=<user> password=<pass>' ],
      ['connect:s' => 'Supply the connect info as a JSON-encoded structure, e.g. an --connect=["dsn","user","pass"]'],
    ] }],
    ['schema-class:s' => 'The class of the schema to load', { required => 1 } ],
    ['config-stanza:s' => 'Where in the config to find the connection_info, supply in form MyApp::Model::DB',],
    ['resultset|resultset-class|class:s' => 'The resultset to operate on for data manipulation' ],
    ['sql-dir:s' => 'The directory where sql diffs will be created'],
    ['sql-type:s' => 'The RDBMs flavour you wish to use'],
    ['version:i' => 'Supply a version install'],
    ['preversion:s' => 'The previous version to diff against',],
    ['set:s' => 'JSON data used to perform data operations' ],
    ['attrs:s' => 'JSON string to be used for the second argument for search'],
    ['where:s' => 'JSON string to be used for the where clause of search'],
    ['force' => 'Be forceful with some operations'],
    ['trace' => 'Turn on DBIx::Class trace output'],
    ['quiet' => 'Be less verbose'],
    ['I:s@' => 'Same as perl\'s -I, prepended to current @INC'],
  )
);

if(defined (my $fn = $opts->{documentation_as_pod}) ) {
  $usage->synopsis($synopsis_text);
  $usage->short_description($short_description);

if ($fn) {
    require File::Spec;
    require File::Path;
    my $dir = File::Spec->catpath( (File::Spec->splitpath($fn))[0,1] );
    File::Path::mkpath([$dir]);
  }

local *STDOUT if $fn;
  open (STDOUT, '>', $fn) or die "Unable to open $fn: $!\n" if $fn;

print STDOUT "\n";
  print STDOUT $usage->pod;
  print STDOUT "\n";

close STDOUT if $fn;
  exit 0;
}

# FIXME - lowercasing will eventually go away when Getopt::Long::Descriptive is fixed
if($opts->{i}) {
  require lib;
  lib->import( @{delete $opts->{i}} );
}

if($opts->{help}) {
  $usage->die();
}

# option compatibility mangle
# (can not be joined in the spec, one is s% the other is s)
if($opts->{connect}) {
  $opts->{connect_info} = delete $opts->{connect};
}

my $admin = DBIx::Class::Admin->new( %$opts );

my $action = $opts->{action};

$action = $opts->{op} if ($action eq 'op');

print "Performing action $action...\n";

my $res = $admin->$action();
if ($action eq 'select') {

my $format = $opts->{format} || 'tsv';
  die('Invalid format') if ($format!~/^tsv|csv$/s);

require Text::CSV;

my $csv = Text::CSV->new({
    sep_char => ( $format eq 'tsv' ? "\t" : ',' ),
  });

foreach my $row (@$res) {
    $csv->combine( @$row );
    print $csv->string()."\n";
  }
}

__END__

=head1 NAME

dbicadmin - utility for administrating DBIx::Class schemata

=head1 SYNOPSIS

dbicadmin: [-I] [long options...]

deploy a schema to a database
  dbicadmin --schema=MyApp::Schema \
    --connect='["dbi:SQLite:my.db", "", ""]' \
    --deploy

update an existing record
  dbicadmin --schema=MyApp::Schema --class=Employee \
    --connect='["dbi:SQLite:my.db", "", ""]' \
    --op=update --set='{ "name": "New_Employee" }'

=head1 OPTIONS

=over

=back

=head2 Actions

=cut

=over

=item B<--create>

Create version diffs needs preversion

=cut

=item B<--upgrade>

Upgrade the database to the current schema

=cut

=item B<--install>

Install the schema version tables to an existing database

=cut

=item B<--deploy>

Deploy the schema to the database

=cut

=item B<--select>

Select data from the schema

=cut

=item B<--insert>

Insert data into the schema

=cut

=item B<--update>

Update data in the schema

=cut

=item B<--delete>

Delete data from the schema

=cut

=item B<--op>

compatibility option all of the above can be supplied as --op=<action>

=cut

=item B<--help>

display this help

=cut

=back

=head2 Arguments

=cut

=over

=item B<--config-file> or B<--config>

Supply the config file for parsing by Config::Any

=cut

=item B<--connect-info>

Supply the connect info as trailing options e.g. --connect-info dsn=<dsn> user=<user> password=<pass>

=cut

=item B<--connect>

Supply the connect info as a JSON-encoded structure, e.g. an --connect=["dsn","user","pass"]

=cut

=item B<--schema-class>

The class of the schema to load

=cut

=item B<--config-stanza>

Where in the config to find the connection_info, supply in form MyApp::Model::DB

=cut

=item B<--resultset> or B<--resultset-class> or B<--class>

The resultset to operate on for data manipulation

=cut

=item B<--sql-dir>

The directory where sql diffs will be created

=cut

=item B<--sql-type>

The RDBMs flavour you wish to use

=cut

=item B<--version>

Supply a version install

=cut

=item B<--preversion>

The previous version to diff against

=cut

=item B<--set>

JSON data used to perform data operations

=cut

=item B<--attrs>

JSON string to be used for the second argument for search

=cut

=item B<--where>

JSON string to be used for the where clause of search

=cut

=item B<--force>

Be forceful with some operations

=cut

=item B<--trace>

Turn on DBIx::Class trace output

=cut

=item B<--quiet>

Be less verbose

=cut

=item B<-I>

Same as perl's -I, prepended to current @INC

=cut

=back

=head1 AUTHORS

See L<DBIx::Class/AUTHORS>

=head1 LICENSE

You may distribute this code under the same terms as Perl itself

=cut

${this.title}

Code Editor : dbicadmin