FILTER_ONLY
		code  => sub {
			my @code = split (/\n/);
			# This is suboptimal I'm sure. 
			foreach (@code){
				s/findone/FindOne::findfirst/g 
					unless m/\b(for|foreach|while)\W/;
			}
			
			$_ = join ("\n",@code);
		}