On Mon, 14 May 2001, Geoffrey Young wrote:
> I think I came off wrong... I may have meant "any time soon" :) certainly,
> even after it's release, it will take a while for it to catch on - I
> originally started off trying to run test.pl if the EU didn't have
> Apache::Test and t/* if the user did in anticipation...
right, i just wanted to wait until somebody had it working well against a
1.3 apache/mod_perl before uploading to cpan.
> anyway, I tried late last week to implement skip in Apache::Test with little
> success.
> trying to get my head around stuff like
> while (my($shortcut, $cv) = each %shortcuts) {
> my $alias = join '_', $name, $shortcut;
> *$alias = sub { (\&{$name})->(@_)->$cv; };
> }
> is really humbling ;)
just generating some shortcuts, for example:
GET_BODY which calls GET, passing through arguments (@_) to it and calls a
method on the return value of GET, for GET_BODY that would be ->content,
so the generated shortcuts are the same as:
sub GET_BODY { GET(@_)->content }
sub GET_RC { GET(@_)->code }
sub POST_BODY { POST(@_)->content }
sub POST_RC { POST(@_)->code }
and so on..
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
