view release on metacpan or  search on metacpan

t/trap-error.t  view on Meta::CPAN

	} or my $att = $@;

    like($att, qr/directory does not exist/, 'prevent fake directories, thats ok!');
 
	#// Check the load() protect from bad filenames 
	eval{
		 $obj->set_filename('hello'),
	 	 $obj->load()
	} or  $att = $@;	
	 
	    like($att, qr/Bad Filename attribute/, 'Prevent from Bad filenames,looks ok..');


   
done_testing();