sub channels_by_level { grep { $_[0]->level( $_[1] ) } $_[0]->channels }

##</code><code>##

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