package GSM::Cell::Role::BcchChecks;
use Moose::Role;

#requires qw(get_adjacency); # - error

sub list_bcchs {
	my $self = shift;
	my %list = map {$_->BCCH => 1} $self , map($self->get_adjacency($_)->CELL , $self->adjacency_IDs);
	my @list = sort keys %list;
	@list;
}

1;