File Coverage

blib/lib/Biblio/bp/lib/bp-cs-canon.pl
Criterion Covered Total %
statement 0 2 0.0
branch n/a
condition n/a
subroutine 0 2 0.0
pod n/a
total 0 4 0.0


line stmt bran cond sub pod time code
1             #
2             # bibliography package for Perl
3             #
4             # canon character set.
5             #
6             # Dana Jacobsen (dana@acm.org)
7             # 17 March 1996
8              
9             package bp_cs_canon;
10              
11             ######
12              
13             $bib'charsets{'canon', 'i_name'} = 'canon';
14              
15             $bib'charsets{'canon', 'tocanon'} = "bp_cs_canon'tocanon";
16             $bib'charsets{'canon', 'fromcanon'} = "bp_cs_canon'fromcanon";
17              
18             $bib'charsets{'canon', 'toesc'} = "[\000]"; # we'd prefer to never call it
19             $bib'charsets{'canon', 'fromesc'} = "[\000]";
20             ######
21              
22             #####################
23              
24              
25             sub tocanon {
26 0     0     $_[0];
27             }
28              
29             ######
30              
31             sub fromcanon {
32 0     0     $_[0];
33             }
34              
35             #######################
36             # end of package
37             #######################
38              
39             1;