10 lines
106 B
Plaintext
10 lines
106 B
Plaintext
|
|
sub register_tests {
|
|
my $self = shift;
|
|
$self->register_test("foo", 1);
|
|
}
|
|
|
|
sub foo {
|
|
ok(1);
|
|
}
|