| File: | bin/filesync-admin |
| 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 | 44 44 44 | 88246 38 723 | use strict; | |||
| 7 | 44 44 44 | 65 31 886 | use warnings; | |||
| 8 | 44 44 44 | 7917 361513 76 | use autodie qw(:all); | |||
| 9 | ||||||
| 10 | 44 44 44 | 437916 21913 3080 | 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 | 44 44 44 | 8043 13012 117 | use lib "$Bin/../lib"; | |||
| 15 | ||||||
| 16 | 44 44 44 | 8402 46 580 | use App::FileSync::Platform; | |||
| 17 | 44 44 44 | 9536 96 1084 | use App::FileSync::CLI; | |||
| 18 | ||||||
| 19 | 44 | 3543159 | exit App::FileSync::CLI::run_admin(@ARGV); | |||
| 20 | ||||||