21 my $has_t1 = ok( exists &t1, 't1 sub declared' );
23 skip 't1 sub was not declared', 1 if ! $has_t1;
24 ok( ! defined &t1, 't1 not defined' );
27 my $has_t2 = ok( exists &t2, 't2 sub declared' );
29 skip 't2 sub was not declared', 1 if ! $has_t2;
30 ok( ! defined &t2, 't2 not defined' );
33 my $has_t3 = ok( exists &t3, 't3 sub declared' );
35 skip 't3 sub was not declared', 1 if ! $has_t3;
36 ok( ! defined &t3, 't3 not defined' );
39 my $has_t4 = ok( exists &t4, 't4 sub declared' );
41 skip 't4 sub was not declared', 1 if ! $has_t4;
42 ok( ! defined &t4, 't4 not defined' );
45 my $has_t5 = ok( exists &t5, 't5 sub declared' );
47 skip 't5 sub was not declared', 1 if ! $has_t5;
48 ok( defined &t5, , 't5 defined' );
51 my $has_p2_tmc = ok(! exists &P2::tmc, 'P2::tmc not declared, it was inherited');
53 skip 'P2::tmc sub was not declared', 1 if ! $has_t5;
54 ok( ! defined &P2::tmc, 'P2::tmc not defined' );
59 my $ref_exists = ok( exists &{$ref->{A}[0]}, 'references to subroutines exist');
61 skip 1, 'Reference sub is not considered declared', 1 if ! $ref_exists;
62 ok( ! defined &{$ref->{A}[0]}, 'Reference to a sub is not defined' );
65 my $p1_tmc_exists = ok( exists &P1::tmc, 'test setup check');
67 skip 'Setup P1::tmc sub is not considered declared', 1 if ! $p1_tmc_exists;
68 ok( defined P1::tmc, 'Setup sub is defined' );
72 $p1_tmc_exists = ok( exists &P1::tmc, 'P1::tmc was once defined, and continues to be after being undeffed');
74 skip( 'Sub P1::tmc still exists after having undef called on it', 1) if ! $p1_tmc_exists;
75 ok( ! defined &P1::tmc, 'P1::tmc is not longer defined after undef was called on it' );
79 like( $@, qr/not a subroutine name/, 'exists takes subroutine names with no argument list');