File Coverage

blib/lib/Mojo/IRC/Server/Channel.pm

Criterion	Covered	Total	%
statement	6	67	8.9
branch	0	26	0.0
condition	0	6	0.0
subroutine	2	12	16.6
pod	0	9	0.0
total	8	120	6.6

package Mojo::IRC::Server::Channel;
use Mojo::IRC::Server::Base 'Mojo::IRC::Server::Object';
use List::Util qw(first);
has 'name';
has id      => sub {lc $_[0]->name};
has topic   => sub {"欢迎来到 " . $_[0]->name};
has ctime   => sub {time()};
has mode    => 'i';
has pass    => undef;
has user    => sub {[]};

sub count {
    my $s = shift;
    0+@{$s->user};
}
sub add_user{
    my $s = shift;
    my $uid = ref($_[0]) eq "Mojo::IRC::Server::User"?$_[0]->id:$_[0];
    push @{$s->user},$uid if not $s->is_has_user($uid);
}
sub remove_user{
    my $s = shift;
    my $uid = ref($_[0]) eq "Mojo::IRC::Server::User"?$_[0]->id:$_[0];
    for(my $i=0;$i<@{$s->user};$i++){
        if($uid eq $s->user->[$i]){
            splice @{$s->user},$i,1;
            if(@{$s->user} == 0 and $s->mode !~/P/){
                $s->{_server}->remove_channel($s);
            }
            return;
        }
    }
}
sub is_has_user{
    my $s = shift;
    my $uid = ref($_[0]) eq "Mojo::IRC::Server::User"?$_[0]->id:$_[0];
    if(defined $uid){
        return (first {$uid eq $_} @{$s->user})?1:0;
    }
    else{
        return 0+@{$s->user};
    }

}
sub set_topic{
    my $s = shift;
    my $user = shift;
    my $topic = shift;
    $s->topic($topic);
    $s->broadcast($user->ident,"TOPIC",$s->name,$topic);
    $s->info($s->name . " 主题设置为: " . $s->topic);
}
sub set_mode{
    my $s = shift;
    my $user = shift;
    my $mode = shift;
    $mode  = "+" . $mode if (substr($mode,0,1) ne '+' and substr($mode,0,1) ne '-');
    my %mode = map {$_=>1} split //,$s->mode;
    if(substr($mode,0,1) eq "+"){
        $mode{$_}=1 for  split //,substr($mode,1,);
    }
    elsif(substr($mode,0,1) eq "-"){
        delete $mode{$_} for  split //,substr($mode,1,);
    }
    else{
        %mode = ();
        $mode{$_}=1 for  split //,$mode;
    }
    $s->mode(join "",keys %mode);
    $s->broadcast($user->ident,"MODE",$s->name,$mode);
    $s->info("[" . $s->name . "] 模式设置为: " . $s->mode);
}

sub users{
    my $s = shift;
    my @users = ();
    for my $uid (@{$s->user}){
        my $user = $s->search_user(id=>$uid);
        push @users ,$user if defined $user;
    }
    return @users;
}

sub broadcast {
    my $s = shift;
    for my $user ($s->users){
        $user->send(@_);
    }
}

sub forward {
    my $s = shift;
    my $except_user = shift;
    for my $user ($s->users){
        next if $user->id eq $except_user->id;
        $user->send(@_);
    }
}

1;