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.1000';
3 13     13   72 use strict;
  13         23  
  13         313  
4 13     13   56 use warnings;
  13         30  
  13         339  
5              
6 13     13   63 use parent 'HTML::Widgets::NavMenu::Object';
  13         24  
  13         53  
7              
8             __PACKAGE__->mk_acc_ref( [qw(_capture)], );
9              
10             sub _init
11             {
12 133     133   222 my ( $self, $args ) = @_;
13              
14 133         270 $self->_capture( $args->{'capture'} );
15              
16 133         206 return 0;
17             }
18              
19             sub is_capturing
20             {
21 73     73 1 103 my $self = shift;
22              
23 73         202 return $self->_capture();
24             }
25              
26              
27             1;
28              
29             __END__