File Coverage

blib/lib/InfoSys/FreeDB/Entry.pm
Criterion Covered Total %
statement 302 322 93.7
branch 72 134 53.7
condition 19 50 38.0
subroutine 42 42 100.0
pod 31 33 93.9
total 466 581 80.2


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__