File Coverage

blib/lib/HTML/Widgets/NavMenu/ExpandVal.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package HTML::Widgets::NavMenu::ExpandVal;
2             $HTML::Widgets::NavMenu::ExpandVal::VERSION = '1.0901';
3 13     13   70 use strict;
  13         25  
  13         308  
4 13     13   56 use warnings;
  13         20  
  13         326  
5              
6 13     13   55 use parent 'HTML::Widgets::NavMenu::Object';
  13         21  
  13         64  
7              
8             __PACKAGE__->mk_acc_ref( [qw(_capture)], );
9              
10             sub _init
11             {
12 133     133   221 my ( $self, $args ) = @_;
13              
14 133         290 $self->_capture( $args->{'capture'} );
15              
16 133         332 return 0;
17             }
18              
19             sub is_capturing
20             {
21 73     73 1 101 my $self = shift;
22              
23 73         195 return $self->_capture();
24             }
25              
26              
27             1;
28              
29             __END__