view release on metacpan or  search on metacpan

lib/Acme/Test/42.pm  view on Meta::CPAN

use strict;

our $VERSION = 0.1;

use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
our @EXPORT = qw(ok not_ok);

my $CLASS = __PACKAGE__;

sub ok($;$) {
    return $CLASS->builder->ok($_[0] eq 42, $_[1]);
}

sub not_ok($;$) {
    return $CLASS->builder->ok($_[0] ne 42, $_[1]);
}

42;

__END__

=head1 NAME

Acme::Test::42 - Test the answer to ultimate question