File Coverage

blib/lib/Chemistry/OpenSMILES/Stereo/Tables.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Chemistry::OpenSMILES::Stereo::Tables;
2              
3             # ABSTRACT: Stereochemistry tables
4             our $VERSION = '0.12.3'; # VERSION
5              
6 44     44   304 use strict;
  44         109  
  44         1661  
7 44     44   255 use warnings;
  44         119  
  44         23120  
8              
9             require Exporter;
10             our @ISA = qw( Exporter );
11             our @EXPORT_OK = qw(
12             @OH
13             @TB
14             );
15              
16             our @TB = (
17             { axis => [ 1, 5 ], order => '@' },
18             { axis => [ 1, 5 ], order => '@@' },
19             { axis => [ 1, 4 ], order => '@' },
20             { axis => [ 1, 4 ], order => '@@' },
21             { axis => [ 1, 3 ], order => '@' },
22             { axis => [ 1, 3 ], order => '@@' },
23             { axis => [ 1, 2 ], order => '@' },
24             { axis => [ 1, 2 ], order => '@@' },
25             { axis => [ 2, 5 ], order => '@' },
26             { axis => [ 2, 4 ], order => '@' },
27             { axis => [ 2, 5 ], order => '@@' },
28             { axis => [ 2, 4 ], order => '@@' },
29             { axis => [ 2, 3 ], order => '@' },
30             { axis => [ 2, 3 ], order => '@@' },
31             { axis => [ 3, 5 ], order => '@' },
32             { axis => [ 3, 4 ], order => '@' },
33             { axis => [ 4, 5 ], order => '@' },
34             { axis => [ 4, 5 ], order => '@@' },
35             { axis => [ 3, 4 ], order => '@@' },
36             { axis => [ 3, 5 ], order => '@@' },
37             );
38              
39             our @OH = (
40             { shape => 'U', axis => [ 1, 6 ], order => '@' },
41             { shape => 'U', axis => [ 1, 6 ], order => '@@' },
42             { shape => 'U', axis => [ 1, 5 ], order => '@' },
43             { shape => 'Z', axis => [ 1, 6 ], order => '@' },
44             { shape => 'Z', axis => [ 1, 5 ], order => '@' },
45             { shape => 'U', axis => [ 1, 4 ], order => '@' },
46             { shape => 'Z', axis => [ 1, 4 ], order => '@' },
47             { shape => '4', axis => [ 1, 6 ], order => '@@' },
48             { shape => '4', axis => [ 1, 5 ], order => '@@' },
49             { shape => '4', axis => [ 1, 6 ], order => '@' },
50             { shape => '4', axis => [ 1, 5 ], order => '@' },
51             { shape => '4', axis => [ 1, 4 ], order => '@@' },
52             { shape => '4', axis => [ 1, 4 ], order => '@' },
53             { shape => 'Z', axis => [ 1, 6 ], order => '@@' },
54             { shape => 'Z', axis => [ 1, 5 ], order => '@@' },
55             { shape => 'U', axis => [ 1, 5 ], order => '@@' },
56             { shape => 'Z', axis => [ 1, 4 ], order => '@@' },
57             { shape => 'U', axis => [ 1, 4 ], order => '@@' },
58             { shape => 'U', axis => [ 1, 3 ], order => '@' },
59             { shape => 'Z', axis => [ 1, 3 ], order => '@' },
60             { shape => '4', axis => [ 1, 3 ], order => '@@' },
61             { shape => '4', axis => [ 1, 3 ], order => '@' },
62             { shape => 'Z', axis => [ 1, 3 ], order => '@@' },
63             { shape => 'U', axis => [ 1, 3 ], order => '@@' },
64             { shape => 'U', axis => [ 1, 2 ], order => '@' },
65             { shape => 'Z', axis => [ 1, 2 ], order => '@' },
66             { shape => '4', axis => [ 1, 2 ], order => '@@' },
67             { shape => '4', axis => [ 1, 2 ], order => '@' },
68             { shape => 'Z', axis => [ 1, 2 ], order => '@@' },
69             { shape => 'U', axis => [ 1, 2 ], order => '@@' },
70             );
71              
72             1;