1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use Test::More tests => 1; 6 7use Alpha; 8use Beta; 9 10ok( Alpha::Member->can( 'friends' ), 'Alpha::Member has friends method' ); 11 12