App-Ikachan

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    ikachan - IRC message delivery by HTTP

SYNOPSIS
      # connect to chat.freenode.net
      ikachan -S chat.freenode.net

OPTIONS
    -o, --host
        The interface a TCP based server daemon binds to. Default bind
        address is '127.0.0.1'.

    -p, --port (default: 4979)
        The port number a TCP based server daemon listens on. Defaults to
        5000. This option doesn't mean anything if the server does not
        support TCP socket.

    -S, --Server
        irc server address.

README.mkdn  view on Meta::CPAN

# SYNOPSIS

    # connect to chat.freenode.net
    ikachan -S chat.freenode.net

# OPTIONS

- \-o, --host

    The interface a TCP based server daemon binds to. Default bind address
    is '127.0.0.1'. 

- \-p, --port (default: 4979)

    The port number a TCP based server daemon listens on. Defaults to
    5000\. This option doesn't mean anything if the server does not support
    TCP socket.

- \-S, --Server

bin/ikachan  view on Meta::CPAN

  # connect to chat.freenode.net
  ikachan -S chat.freenode.net

=head1 OPTIONS

=over 4

=item -o, --host

The interface a TCP based server daemon binds to. Defauts to undef,
which lets most server backends bind the any (*) interface. This
option doesn't mean anything if the server does not support TCP
socket.

=item -p, --port (default: 4979)

The port number a TCP based server daemon listens on. Defaults to
5000. This option doesn't mean anything if the server does not support
TCP socket.

=item -S, --Server

inc/Module/CPANfile.pm  view on Meta::CPAN

    }

    $code =~ s/\n+$/\n/s;
    $code;
}

package Module::CPANfile::Environment;
use strict;
use Carp ();

my @bindings = qw(
    on requires recommends suggests conflicts
    feature
    osname
    configure_requires build_requires test_requires author_requires
);

my $file_id = 1;

sub import {
    my($class, $result_ref) = @_;
    my $pkg = caller;

    $$result_ref = Module::CPANfile::Result->new;
    for my $binding (@bindings) {
        no strict 'refs';
        *{"$pkg\::$binding"} = sub { $$result_ref->$binding(@_) };
    }
}

sub parse {
    my $file = shift;

    my $code = do {
        open my $fh, "<", $file or die "$file: $!";
        join '', <$fh>;
    };

lib/App/Ikachan.pm  view on Meta::CPAN

  # connect to chat.freenode.net
  ikachan -S chat.freenode.net

=head1 OPTIONS

=over 4

=item -o, --host

The interface a TCP based server daemon binds to. Default bind address
is '127.0.0.1'. 

=item -p, --port (default: 4979)

The port number a TCP based server daemon listens on. Defaults to
5000. This option doesn't mean anything if the server does not support
TCP socket.

=item -S, --Server