AnySanを往年のJISなircで利用しようかと思ったときに、毎回使う側でjisに変換するのが面倒になった時に、つかうモンキーパッチ

anysan-provider-irc-jis.pl

{
    no warnings 'redefine';
    use Encode qw/from_to/;
    *AnySan::Provider::IRC::send_message = sub {
        my ( $self, $message, %args ) = @_;
        from_to( $message, 'UTF-8', 'jis' );
        my $channel = $args{channel};
        from_to( $channel, 'UTF-8', 'jis' );
        $self->_run(
            sub {
                my $type = $args{privmsg} ? 'PRIVMSG' : 'NOTICE';
                $self->{client}->send_chan( $channel, $type, $channel, $message, );
            }
        );
    };
    *AnySan::Provider::IRC::join_channel = sub {
        my ( $self, $channel, $key ) = @_;
        from_to( $channel, 'UTF-8', 'jis' );
        $self->{client}->send_srv( JOIN => $channel, $key );
    };
    *AnySan::Provider::IRC::leave_channel = sub {  
        my($self, $channel) = @_;
        from_to( $channel, 'UTF-8', 'jis' );
        $self->{client}->send_srv( PART => $channel );
    }
}