1 use Test::Base tests => 4;
3 my $block = first_block;
4 ok((not defined &Test::Base::Block::bogus_method),
5 "Method doesn't exist");
6 ok((not exists $block->{bogus_method}),
7 "Slot really doesn't exist");
8 ok((not defined $block->bogus_method),
10 my @list_context = $block->bogus_method;
11 ok @list_context == 0,
12 "Returns nothing in list context";