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.0902';
3 13     13   73 use strict;
  13         20  
  13         300  
4 13     13   54 use warnings;
  13         24  
  13         268  
5              
6 13     13   50 use parent 'HTML::Widgets::NavMenu::Object';
  13         21  
  13         73  
7              
8             __PACKAGE__->mk_acc_ref( [qw(_capture)], );
9              
10             sub _init
11             {
12 133     133   228 my ( $self, $args ) = @_;
13              
14 133         259 $self->_capture( $args->{'capture'} );
15              
16 133         219 return 0;
17             }
18              
19             sub is_capturing
20             {
21 73     73 1 103 my $self = shift;
22              
23 73         212 return $self->_capture();
24             }
25              
26              
27             1;
28              
29             __END__