view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

if($obj->requires('admin.cgi','admin','3')) { print "ok\n"; }
else { print "not ok\n"; }

if($obj->save()) { print "ok 6\n"; }
else { print "not ok\n"; }

if(-e 'htaccess') { print "ok 7\n"; }
else { print "not ok\n"; }

if( (stat('htaccess'))[7] > 0 ) { print "ok 8\n"; }
else { print "not ok\n"; }