# NOTE: Derived from lib/Zoidberg/Fish/Intel.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Zoidberg::Fish::Intel;

#line 374 "lib/Zoidberg/Fish/Intel.pm (autosplit into blib/lib/auto/Zoidberg/Fish/Intel/i_users.al)"
sub i_users { # TODO use this
	my ($self, $block) = @_;
	$block->[0]{poss} = [ grep /^\Q$block->[-1]\E/, list_users() ];
	return $block;
}

# end of Zoidberg::Fish::Intel::i_users
1;
