use strict;
use warnings;
use Test::More 0.88;
use Devel::Cycle;
{
package FormHandlerMemLeak;
use HTML::FormHandler::Moose;
extends qw/HTML::FormHandler/;
has_field test => ( type => "Text");
sub default_test {
return "test";
}
sub validate_test {
return 1;
}
__PACKAGE__->meta->make_immutable;
}
my $i = FormHandlerMemLeak->new;
find_cycle($i, sub { fail("Cycle found") });
ok $i;
done_testing;