(Ovid - more frivolity) Re: Frivolous function names

[Ovid]

If you want to see a fair amount of frivolity, check out some of the source code from the CPAN. Here's some snippets from the tests of Test::Simple:

use_ok('Hooble::mooble::yooble');
require_ok('ALL::YOUR::BASE::ARE::BELONG::TO::US::wibble');

My personal favorite:

SKIP: {
    skip $Why, 2 
      unless Pigs->can('fly');

    my $pig = Pigs->new;
    $pig->takeoff;

    ok( $pig->altitude > 0,         'Pig is airborne' );
    ok( $pig->airspeed > 0,         '  and moving'    );
}

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.