sub channels_by_level { 
    my $self  = shift;
    my $level = shift;
    return grep { $self->level( $level ) } $self->channels;
}