File Coverage

blib/lib/Wizard/Examples.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             # -*- perl -*-
2              
3 1     1   602 use strict;
  1         3  
  1         34  
4              
5 1     1   6 use Wizard::State ();
  1         2  
  1         14  
6 1     1   55 use Wizard::SaveAble ();
  0            
  0            
7              
8             package Wizard::Examples;
9              
10             @Wizard::Examples::ISA = qw(Wizard::State);
11             $Wizard::Examples::VERSION = '0.01';
12              
13              
14              
15             sub Action_Reset {
16             my($self, $wiz) = @_;
17              
18             # Return the initial menu.
19             (['Wizard::Elem::Title', 'value' => 'Wizard Examples Menu'],
20             ['Wizard::Elem::Submit', 'value' => 'Apache Wizard Menu',
21             'name' => 'Wizard::Examples::Apache::Action_Reset',
22             'id' => 1],
23             ['Wizard::Elem::BR'],
24             ['Wizard::Elem::Submit', 'value' => 'ISDN Wizard Menu',
25             'name' => 'Wizard::Examples::ISDN::Action_Reset',
26             'id' => 2],
27             ['Wizard::Elem::BR'],
28             ['Wizard::Elem::Submit', 'value' => 'Exit Wizard',
29             'id' => 99]);
30             }
31              
32              
33              
34             1;