package HTML::Widgets::NavMenu::ExpandVal; use strict; use warnings; use base 'HTML::Widgets::NavMenu::Object'; __PACKAGE__->mk_accessors( qw(_capture), ); sub _init { my ($self, $args) = @_; $self->_capture($args->{'capture'}); return 0; } sub is_capturing { my $self = shift; return $self->_capture(); } =head1 NAME HTML::Widgets::NavMenu::ExpandVal - an expand value that differentiates among different expands For internal use only. =head1 SYNOPSIS my $expand_val = HTML::Widgets::NavMenu::ExpandVal->new('capture' => $bool); =head1 FUNCTIONS =head2 my $expand_val = HTML::Widgets::NavMenu::ExpandVal->new('capture' => $bool); Creates a new object. =head2 $expand_val->is_capturing() Returns whether or not it is a capturing expansion. =head1 COPYRIGHT & LICENSE Copyright 2006 Shlomi Fish, all rights reserved. This program is released under the following license: MIT X11. =cut 1;