File Coverage

blib/lib/HTML/Widgets/NavMenu/NodeDescription.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 17 17 100.0


line stmt bran cond sub pod time code
1             package HTML::Widgets::NavMenu::NodeDescription;
2             $HTML::Widgets::NavMenu::NodeDescription::VERSION = '1.1000';
3 11     11   55 use strict;
  11         24  
  11         265  
4 11     11   45 use warnings;
  11         17  
  11         295  
5              
6 11     11   59 use parent qw(HTML::Widgets::NavMenu::Object);
  11         16  
  11         50  
7              
8             __PACKAGE__->mk_acc_ref( [qw(host host_url title label direct_url url_type)] );
9              
10             sub _init
11             {
12 238     238   386 my ( $self, $args ) = @_;
13              
14 238         770 while ( my ( $k, $v ) = each(%$args) )
15             {
16 1428         4045 $self->$k($v);
17             }
18              
19 238         401 return 0;
20             }
21              
22             1;
23              
24             __END__