1 |
package Bibulus::LaTeX; |
package Bibulus::LaTeX; |
2 |
|
|
|
use 5.006; |
|
3 |
use strict; |
use strict; |
4 |
use warnings; |
use warnings; |
5 |
use Carp; |
use Carp; |
6 |
use Bibulus; |
use Bibulus; |
7 |
|
|
8 |
require Exporter; |
require Exporter; |
|
|
|
9 |
our @ISA = qw(Exporter Bibulus); |
our @ISA = qw(Exporter Bibulus); |
10 |
|
|
11 |
my $DEBUG = 0; |
my $DEBUG = 0; |
12 |
|
sub setdebug { |
13 |
|
$DEBUG = 1; |
14 |
|
print STDERR 'This is Bibulus::LaTeX $Id$; ', "\n"; |
15 |
|
Bibulus->setdebug; |
16 |
|
} |
17 |
|
|
18 |
# The following translates an ISO language code into a babel language |
# The following translates an ISO language code into a babel language |
19 |
# name. Often there is more than one possible name, in which case |
# name. Often there is more than one possible name, in which case |