Lines Matching refs:subs
9 use strict qw( vars subs );
158 # test DB::subs()
161 my $subs = DB->subs;
162 is( $subs, 0, 'DB::subs() should return keys of %DB::subs' );
164 $subs = DB->subs;
165 is( $subs, 2, '... same song, different key' );
166 my @subs = DB->subs( 'foo', 'boo', 'bar' );
167 is( scalar @subs, 2, '... should report only for requested subs' );
169 ok( eq_array( \@subs, \@expected ), '... find file, start, end for subs' );
180 is( scalar @ret, 2, '... should pick up subs in proper file' );
182 is( scalar @ret, 3, '... should use argument to find subs' );
184 is( scalar @ret, 3, '... should pick up subs in proper file with argument');