line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package InfoSys::FreeDB::Entry; |
2
|
|
|
|
|
|
|
|
3
|
3
|
|
|
3
|
|
38946
|
use 5.006; |
|
3
|
|
|
|
|
12
|
|
|
3
|
|
|
|
|
132
|
|
4
|
3
|
|
|
3
|
|
18
|
use strict; |
|
3
|
|
|
|
|
6
|
|
|
3
|
|
|
|
|
100
|
|
5
|
3
|
|
|
3
|
|
17
|
use warnings; |
|
3
|
|
|
|
|
21
|
|
|
3
|
|
|
|
|
100
|
|
6
|
3
|
|
|
3
|
|
2170
|
use AutoLoader qw(AUTOLOAD); |
|
3
|
|
|
|
|
1549
|
|
|
3
|
|
|
|
|
20
|
|
7
|
3
|
|
|
3
|
|
100
|
use Error qw(:try); |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
24
|
|
8
|
3
|
|
|
3
|
|
1433
|
use IO::File; |
|
3
|
|
|
|
|
12148
|
|
|
3
|
|
|
|
|
8305
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our $CDPARA_TOTAL_RX = '^\s*TOTAL\s+(\d+)'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
our $CDPARA_TRACK_RX = '^\s*(\d+)\.\s*(\d+)\s*\[\d+[:.]\d+[:.]\d+\]\s*(\d+)\s*\[\d+[:.]\d+[:.]\d+\]'; |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
our $DGENRE_RX = '^\s*DGENRE\s*=(.*)$'; |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
our $DID_ERR = 'DISCID='; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
our $DID_RX = '^\s*DISCID\s*=\s*(\S+)\s*$'; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
our $DL_ERR = '# Disc length: seconds'; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
our $DL_RX = '^\s*#\s*Disc\s+length\s*:\s*(\d+)'; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
our $DTITLE_RX = '^\s*DTITLE\s*=(.*)$'; |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
our $DYEAR_RX = '^\s*DYEAR\s*=(.*)$'; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
our $EXTD_RX = '^\s*EXTD\s*=(.*)$'; |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
our $EXTTN_RX = '^\s*EXTT(\d+)\s*=(.*)$'; |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
our $FO_ERR = '# '; |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
our $FO_RX = '^\s*#\s*(\d+)\s*$'; |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
our $REV_ERR = '# Revision: '; |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
our $REV_RX = '^\s*#\s*Revision\s*:\s*(\d+)\s*'; |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
our $SUB_ERR = '# Submitted via: '; |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
our $SUB_RX = '^\s*#\s*Submitted\s+via\s*:\s*(\S+)\s+(\S+)\s*(.*)\s*$'; |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
our $TFO_ERR = '# Track frame offsets:'; |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
our $TFO_RX = '^\s*#\s*Track\s+frame\s+offsets\s*:\s*$'; |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
our $TTITLEN_RX = '^\s*TTITLE(\d+)\s*=(.*)$'; |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
our $XMCD_ERR = '# xmcd'; |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
our $XMCD_RX = '^\s*#\s*xmcd'; |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
# Used by _value_is_allowed |
55
|
|
|
|
|
|
|
our %ALLOW_ISA = ( |
56
|
|
|
|
|
|
|
'track' => [ 'InfoSys::FreeDB::Entry::Track' ], |
57
|
|
|
|
|
|
|
); |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
# Used by _value_is_allowed |
60
|
|
|
|
|
|
|
our %ALLOW_REF = ( |
61
|
|
|
|
|
|
|
); |
62
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
# Used by _value_is_allowed |
64
|
|
|
|
|
|
|
our %ALLOW_RX = ( |
65
|
|
|
|
|
|
|
); |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
# Used by _value_is_allowed |
68
|
|
|
|
|
|
|
our %ALLOW_VALUE = ( |
69
|
|
|
|
|
|
|
); |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
# Package version |
72
|
|
|
|
|
|
|
our ($VERSION) = '$Revision: 0.92 $' =~ /\$Revision:\s+([^\s]+)/; |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
1; |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
__END__ |