| File: | bin/filesync-server |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | #!/usr/bin/env perl | |||||
| 2 | ||||||
| 3 | # Thin wrapper: everything, including error reporting and the exit code, | |||||
| 4 | # lives in App::FileSync::CLI so it can be tested without a subprocess. | |||||
| 5 | ||||||
| 6 | 175 175 175 | 347448 129 2853 | use strict; | |||
| 7 | 175 175 175 | 278 95 3508 | use warnings; | |||
| 8 | 175 175 175 | 31564 1439635 326 | use autodie qw(:all); | |||
| 9 | ||||||
| 10 | 175 175 175 | 1737358 85754 11813 | use FindBin qw($Bin); | |||
| 11 | ||||||
| 12 | # A checkout's lib/ first, so bin/ runs the code beside it; an installed | |||||
| 13 | # copy finds the modules on @INC as usual. | |||||
| 14 | 175 175 175 | 32438 50544 483 | use lib "$Bin/../lib"; | |||
| 15 | ||||||
| 16 | 175 175 175 | 33197 186 2313 | use App::FileSync::Platform; | |||
| 17 | 175 175 175 | 37866 373 4123 | use App::FileSync::CLI; | |||
| 18 | ||||||
| 19 | 175 | 14000472 | exit App::FileSync::CLI::run_server(@ARGV); | |||
| 20 | ||||||