my $default = $self->element('default')->get();
if ( ! $default or $default =~ /^false$/i ) {
$default = 0;
} else {
$default = 1;
}
$self->element('default')->set ( $default );
$self->add_hook ( 'set_hook',
sub {
if ( ! ${$_[1]} or ${$_[1]} =~ /^false$/i ) {
${$_[1]} = 0;
} else {
${$_[1]} = 1;
}
}
);
$self->add_method ( 'toggle',
sub {
$_[0]->set( ! $_[0]->get() );
}
);
1;