Select Code to Download

> perl -e 'print sprintf("%.0f%", 1/30*100)'
3%

use Test::More tests => 1;
use Test::Number::Delta within => .01;
my $percent = 1/30;
delta_ok( $percent, 0.03, 'values within 1%');