| File: | bin/filesync |
| 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 | 78 78 78 | 154642 56 1259 | use strict; | |||
| 7 | 78 78 78 | 124 33 1550 | use warnings; | |||
| 8 | 78 78 78 | 14060 638746 130 | use autodie qw(:all); | |||
| 9 | ||||||
| 10 | 78 78 78 | 773352 38662 5300 | 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 | 78 78 78 | 14327 22445 262 | use lib "$Bin/../lib"; | |||
| 15 | ||||||
| 16 | 78 78 78 | 14849 107 1043 | use App::FileSync::Platform; | |||
| 17 | 78 78 78 | 16874 170 1875 | use App::FileSync::CLI; | |||
| 18 | ||||||
| 19 | 78 | 6247272 | exit App::FileSync::CLI::run_client(@ARGV); | |||
| 20 | ||||||