$ prove -v test.pl 
test.pl .. 
1..15
ok 1 - The object isa Data::FormValidator::Results
ok 2 - data is invalid
ok 3 - err_Field1 is required
ok 4 - err_Field2 is required
ok 5 - The object isa Data::FormValidator::Results
ok 6 - data is invalid
ok 7 - Field1 must be positive
ok 8 - The object isa Data::FormValidator::Results
ok 9 - data is invalid
ok 10 - Field2 must be positive
ok 11 - The object isa Data::FormValidator::Results
ok 12 - data is invalid
ok 13 - Field2 must less than Field1
ok 14 - The object isa Data::FormValidator::Results
ok 15 - data is valid
ok
All tests successful.
Files=1, Tests=15,  1 wallclock secs ( 0.03 usr  0.01 sys +  0.04 cusr  0.00 csys =  0.08 CPU)
Result: PASS