use Test::More;
{
package Foos;
use Moos;
has attr => (clearer => 1, predicate => 1);
}
my $obj = Foos->new(attr => 42);
can_ok($obj, qw/ attr clear_attr has_attr /);
ok $obj->has_attr;
is($obj->attr, 42);
$obj->clear_attr;
ok not $obj->has_attr;
is($obj->attr, undef);
done_testing();