OK, so let's get technical and look at your modules.

SF::SF_form_secure

• SF::? Is that supposed to mean anything? Or is it just the first two letters of your nick? I mean I do name my modules using my name, but only as long as they are internal only. Modules that are to be uploaded to CPAN should have meaningful names! At least the first part of the name should definitely be meaningful and aligned with others in the category.
• The docs are crap. Not only do they contain a lot of typos and missing letters, they are confusing at best. "Minutes code will expire in 1 to 99"?
• The API is crap. You require "SF::SF_form_secure" and then call SF_form_secure::x_secure()? Where did the SF:: go? And why the heck do you only have one function with the "action" you want to do specified by an integer passed as the first (heavily underdocumented) parameter? Actions 4 and 5 mentioned in "DESCRIPTION" and Changes are not documented at all.
• README is NOT supposed to be a plain text copy of the docs.
• Tests only test the undocumented actions 4 and 5 and the tests are very very shallow. Almost nonexistent. And the code ... even though there is just some 20 or so lines is not even indented consistently.
• The module deletes some %ENV variables. Without this being documented anywhere. The variables are none of its fscking business! The fact that you read somewhere that these are dangerous is nice, but irrelevant.
• There are typos even in the short list of error messages. 'Referer is to long.'? "Referers do not Match."? 'Code Has expired.'? And you keep them in a hash with keys a,b,c,d,e,f,...?   if (this or that) { return $x_error{f}}? Beg your pardon?
• $act eq 1? You have heard about the difference between eg and ==, right?
• if (!$link) { You do know 0 and "0" is false, right?
• Code indentation is totally absolutely inconsistent.
• Function and variable names are crap. Let's see, what does x_regex() do?

  sub x_regex {
  my $regex = shift;
  $regex =~ s/^(.*?)\?(.*?)$/$2/;
  return $regex;
  }
  [download]

  Waitasec? It finds the first question mark and removes everything before plus that question mark? The variable is called $regex and you pass the function the HTTP_REFERER? What?!?

So all in all, thank you for making me waste my time on your crap. I would not touch that module no matter what. The AUBBC looks slightly better at the first look, I ain't gonna waste any more time.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.