File Coverage

Car2.pm
Criterion Covered Total %
statement 1 1 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod 0 1 0.0
total 2 3 66.6


line stmt bran cond sub pod time code
1             package Car2;
2              
3             my $listgroupname = 'vehicles';
4              
5             my $level1 =
6             [
7             { 'car-makers' =>
8             [
9             [ "Select a maker", "" => "dummy-list" ],
10             [ "Toyota", "Toyota" => "Toyota" ],
11             [ "Honda", "Honda" => "Honda" ],
12             [ "Chrysler", "Chrysler" => "Chrysler", 1 ],
13             [ "Dodge", "Dodge" => "Dodge" ],
14             [ "Ford", "Ford" => "Ford" ]
15             ]
16             }
17             ] ;
18              
19             my $level2 =
20             [
21              
22             { 'dummy-list' =>
23             [
24             [ "Not available", "" => "dummy-sub"]
25             ] },
26              
27             { Toyota =>
28             [
29             ["--- Toyota vehicles ---", "" => "dummy-list" ],
30             [ "Cars", "car", => "Toyota-Cars" ],
31             [ "SUVs/Van", "suv", => "Toyota-SUVs/Van" ],
32             [ "Trucks", "truck", => "Toyota-Trucks", 1 ]
33             ]
34             },
35              
36             { "Honda" =>
37             [
38             [ "--- Honda vehicles ---", "" => "dummy-list" ],
39             [ "Cars", "car" => "Honda-Cars" ],
40             [ "SUVs/Van", "suv" => "Honda-SUVs/Van", 1 ]
41             ]
42             },
43              
44             { "Chrysler" =>
45             [
46             [ "--- Chrysler vehicles ---", "" => "dummy-list" ],
47             [ "Cars", "car" => "Chrysler-Cars", 1 ],
48             [ "SUVs/Van", "suv" => "Chrysler-SUVs/Van" ]
49             ]
50             },
51              
52             { "Dodge" =>
53             [
54             [ "--- Dodge vehicles ---", "" => "dummy-list" ],
55             [ "Cars", "car" => "Dodge-Cars" ],
56             [ "SUVs/Van", "suv", => "Dodge-SUVs/Van" ],
57             [ "Trucks", "truck" => "Dodge-Trucks" ]
58             ]
59             },
60              
61             { Ford =>
62             [
63             [ "--- Ford vehicles ---", "" => "dummy-list" ],
64             [ "Cars", "car" => "Ford-Cars" ],
65             [ "SUVs/Van", "suv" => "Ford-SUVs/Van" ],
66             [ "Trucks", "truck" => "Ford-Trucks" ]
67             ]
68             }
69              
70             ];
71              
72             my $level3 =
73             [
74             { "dummy-sub" =>
75             [
76             [ "Not available", "" ]
77             ]
78             },
79              
80             { "Dodge-Cars" =>
81             [
82             [ "--- Dodge cars ---", "" ],
83             [ "Intrepid", "Intrepid" ],
84             [ "Neon", "Neon" ],
85             [ "SRT-4", "SRT-4" ],
86             [ "Stratus Coupe", "Stratus Coupe" ],
87             [ "Stratus Sedan", "Stratus Sedan" ],
88             [ "Viper", "Viper" ]
89             ]
90             },
91              
92             { "Dodge-SUVs/Van" =>
93             [
94             ["--- Dodge SUVs/Van ---", "" ],
95             [ "Caravan", "Caravan" ],
96             [ "Durango", "Durango" ],
97             [ "Ram Van", "Ram Van" ]
98             ]
99             },
100              
101             { "Dodge-Trucks" =>
102             [
103             ["--- Dodge trucks ---", "" ],
104             [ "Dakota", "Dakota" ],
105             [ "Ram Pickup", "Ram Pickup" ],
106             ] },
107              
108             { "Chrysler-Cars" =>
109             [
110             ["--- Chrysler cars ---", "" ],
111             [ "300M", "300M" ],
112             [ "PT Cruiser", "PT Cruiser", 1 ],
113             [ "Concorde", "Concorde" ],
114             [ "Sebring Coupe", "Sebring Coupe" ],
115             [ "Sebring Sedan", "Sebring Sedan" ],
116             [ "Sebring Convertible", "Sebring Convertible", 1 ]
117             ] },
118              
119             { "Chrysler-SUVs/Van" =>
120             [
121             ["--- Chrysler SUVs/Van ---", "" ],
122             [ "Town & Country", "Town & Country" ],
123             [ "Voyager", "Voyager" ]
124             ]
125             },
126              
127             { "Honda-Cars" =>
128             [
129             ["--- Honda cars ---", "" ],
130             [ "Accord Sedan", "Accord Sedan" ],
131             [ "Accord Coupe", "Accord Coupe" ],
132             [ "Civic Sedan", "Civic Sedan" ],
133             [ "Civic Coupe", "Civic Coupe" ],
134             [ "Civic Hybrid", "Civic Hybrid" ],
135             [ "Civic Si", "Civic Si" ],
136             [ "Civic GX", "Civic GX" ],
137             [ "Insight", "Insight" ],
138             [ "S2000", "S2000" ]
139             ] } ,
140              
141             { "Honda-SUVs/Van" =>
142             [
143             ["--- Honda SUVs/Van ---", "" ],
144             [ "CR-V", "CR-V" ],
145             [ "Pilot", "Pilot" ],
146             [ "Odyssey", "Odyssey", 1 ] ] },
147              
148              
149             { "Toyota-Cars" =>
150             [
151             [ "--- Toyota cars ---", "" ],
152             [ "Avalon", "Avalon" ],
153             [ "Camry", "Camry" ],
154             [ "Celica", "Celica" ],
155             [ "Corolla", "Corolla" ],
156             [ "ECHO", "ECHO" ],
157             [ "Matrix", "Matrix" ],
158             [ "MR2 Spyder", "MR2 Spyder" ],
159             [ "Prius", "Prius" ] ] },
160              
161              
162             { "Toyota-SUVs/Van" =>
163             [
164             ["--- Toyota SUVs/Van ---", "" ],
165             [ "4Runner", "4Runner" ],
166             [ "Highlander", "Highlander" ],
167             [ "Land Cruiser", "Land Cruiser" ],
168             [ "RAV4", "RAV4" ],
169             [ "Sequoia", "Sequoia" ],
170             [ "Sienna", "Sienna", 1 ] ] },
171              
172             { "Toyota-Trucks" =>
173             [
174             ["--- Toyota trucks ---", "" ],
175             [ "Tacoma", "Tacoma" ],
176             [ "Tundra", "Tundra", 1 ] ] },
177              
178             { "Ford-Cars" =>
179             [
180             ["--- Ford cars ---", "" ],
181             [ "ZX2", "ZX2" ],
182             [ "Focus", "Focus" ],
183             [ "Taurus", "Taurus" ],
184             [ "Crown Victoria", "Crown Victoria" ],
185             [ "Mustang", "Mustang" ],
186             [ "Thunderbird", "Thunderbird" ] ] },
187              
188             { "Ford-SUVs/Van" =>
189             [
190             [ "--- Ford SUVs/Van ---", "" ],
191             [ "Escape", "Escape" ],
192             [ "Explorer", "Explorer" ],
193             [ "Expedition", "Expedition" ],
194             [ "Excursion", "Excursion" ],
195             [ "Windstar", "Windstar" ],
196             [ "Econoline", "Econoline" ] ] },
197              
198             { "Ford-Trucks" =>
199             [
200             [ "--- Ford trucks ---", "" ],
201             [ "Ranger", "Ranger" ],
202             [ "F-150", "F-150" ],
203             [ "F-250", "F-250" ],
204             [ "F-350", "F-350" ] ] },
205              
206             ];
207              
208              
209              
210              
211             sub model {
212              
213             {
214 1     1 0 519 data => [ $level1, $level2, $level3 ],
215             listgroupname => $listgroupname,
216             }
217            
218             }
219              
220             1,