|
Lines 4-10
Link Here
|
| 4 |
use strict; |
4 |
use strict; |
| 5 |
use 5.008; |
5 |
use 5.008; |
| 6 |
use Carp; |
6 |
use Carp; |
| 7 |
use Getopt::Long qw(:config no_auto_abbrev); |
7 |
#use Getopt::Long qw(:config no_auto_abbrev); |
|
|
8 |
use Getopt::Long qw(:config no_auto_abbrev debug); |
| 8 |
use Pod::Usage; |
9 |
use Pod::Usage; |
| 9 |
use Publican; |
10 |
use Publican; |
| 10 |
use Publican::CreateBook; |
11 |
use Publican::CreateBook; |
|
Lines 384-389
Link Here
|
| 384 |
} |
385 |
} |
| 385 |
} |
386 |
} |
| 386 |
|
387 |
|
|
|
388 |
use Data::Dumper; |
| 389 |
$Data::Dumper::Sortkeys=1; |
| 390 |
|
| 391 |
utf8::encode $_ for @ARGV; |
| 392 |
|
| 387 |
GetOptions( \%opts, @optns, ) |
393 |
GetOptions( \%opts, @optns, ) |
| 388 |
or pod2usage( |
394 |
or pod2usage( |
| 389 |
-verbose => 1, |
395 |
-verbose => 1, |
|
Lines 392-397
Link Here
|
| 392 |
-pathlist => \@pod_paths |
398 |
-pathlist => \@pod_paths |
| 393 |
); |
399 |
); |
| 394 |
|
400 |
|
|
|
401 |
#warn Dumper \%INC; |
| 402 |
warn Dumper \%opts, \@optns; |
| 403 |
|
| 395 |
# catch multiple actions |
404 |
# catch multiple actions |
| 396 |
if ( scalar @ARGV > 1 ) { |
405 |
if ( scalar @ARGV > 1 ) { |
| 397 |
croak( |
406 |
croak( |
