| File: | bin/access2csv |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | #!/usr/bin/env perl | |||||
| 2 | ||||||
| 3 | # Thin wrapper: all of the logic, and the documentation used by --help, | |||||
| 4 | # lives in App::Access2CSV so that it can be tested without a subprocess | |||||
| 5 | ||||||
| 6 | 12 12 12 | 22482 12 205 | use strict; | |||
| 7 | 12 12 12 | 19 9 231 | use warnings; | |||
| 8 | 12 12 12 | 2119 97281 21 | use autodie qw(:all); | |||
| 9 | ||||||
| 10 | 12 12 12 | 117537 28 247 | use App::Access2CSV; | |||
| 11 | ||||||
| 12 | 12 | 949815 | exit App::Access2CSV->run(@ARGV); | |||
| 13 | ||||||