#minions#

My favorite tiny Perl scripts for development and testing.


##htlog.cgi##

Collects GET requests with parameters *msg*, *tag* and *i* and logs them into
single text file.

*   *msg* is actual message body. It can be used to contain parseable data
    like `name=john;age=32;state=il`
*   *tag* can be used to identify related messages like those from one test
*   use *i* if you tend to write tags like `test01-012` .. `test01-013` to
    store the iteration number, you'll be better off with this parameter as
    it won't break your ability to use tags


##htlogger.pm##

API to make usage of *htlog.cgi* in Perl scripts even easier

    use htlogr;

    my $logger = htlogr::new('http://192.168.1.1/cgi-bin/htlog.cgi');

    # we don't need tag nor iteration number, but it can be useful
    my $tag = "synopsis_test";

    $logger->log("Commencing synopsis test", $tag);

    my $data = {
        foo => 1,
        bar => "Hello world"
    };

    foreach my $i (1..1000) {

        # log normal messages--with I!
        $logger->log("next 10 done!", $tag, $i) unless ($num % 100);

        # or a simple one-level data structures
        $logger->data(
            my_func_returning_hashref($data),
            $tag,
            $i
        );

    }


##autotest.pl##

Script to make it easier to start developing your new Perl module under 
pressure of unit tests written in [Test::More][1] and the likes.

  [1]: (http://perldoc.perl.org/Test/More.html)

Suggested use is to sit on the other monitor, run all *.t* files around 
and around and be annoying about the fact that they fail.  Then the rule 
of thumb goes without saying: "no green, no commit".


##timestamp.pl##

Script to measure how long mone second takes.  For those that know how long 
one second takes, it can serve as a snippet for Perl `&stamp()`.



##helper.pm##

Container module for some utility methods for Perl.  Probably only `dmup()` 
is interesting—it bears a nice quick and dirty way for dumping Perl 
data.