X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FViewPort%2FField%2FBoolean.pm;h=53356ef7fc0590893ab42db297c92390d8310529;hb=7ea45b2aff36dd61953b1517a1cfb079dcea230c;hp=329ebde02c6776e71f2dde94519abdb8d508ed94;hpb=1734a92a996a20dd6d292fc4aea58e876c24249b;p=catagits%2FReaction.git diff --git a/lib/Reaction/UI/ViewPort/Field/Boolean.pm b/lib/Reaction/UI/ViewPort/Field/Boolean.pm index 329ebde..53356ef 100644 --- a/lib/Reaction/UI/ViewPort/Field/Boolean.pm +++ b/lib/Reaction/UI/ViewPort/Field/Boolean.pm @@ -3,10 +3,14 @@ package Reaction::UI::ViewPort::Field::Boolean; use Reaction::Class; use aliased 'Reaction::UI::ViewPort::Field'; -class Boolean, is Field, which { - has '+value' => (isa => 'Bool'); +use namespace::clean -except => [ qw(meta) ]; +extends Field; + + +has '+value' => (isa => 'Bool'); + +override _empty_string_value => sub { 0 }; +__PACKAGE__->meta->make_immutable; - implements _empty_value => as { undef }; -}; 1;