Bivio::UI::HTML::Widget::EmptyTag
# Copyright (c) 2006 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::UI::HTML::Widget::EmptyTag;
use strict;
use Bivio::Base 'HTMLWidget.Tag';
sub initialize {
my($self) = @_;
$self->put_unless_exists(
tag_if_empty => 1,
value => '',
);
return shift->SUPER::initialize(@_);
}
sub internal_as_string {
return shift->unsafe_get('tag', 'class');
}
sub internal_new_args {
return shift->internal_compute_new_args(['tag', '?class'], \@_);
}
1;