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;