view release on metacpan or  search on metacpan

ex/declare.pl  view on Meta::CPAN

use lib qw(lib);
use Moses::Declare;

bot MasterMold {
    server 'irc.perl.org';
    channels '#moses';

    has message => (
        isa     => 'Str',
        is      => 'ro',
        default => 'Mutant Detected!',

ex/ncbot.pl  view on Meta::CPAN

#!/usr/bin/env perl
use 5.10.0;
use lib qw(lib);
use Moses::Declare;

bot NetCat {
    server 'irc.perl.org';
    channels '#moses';

    use Regexp::Common qw(pattern);
    use aliased 'POE::Component::Server::TCP' => 'TCPServer';

    has listen => (

ex/rt-plugin.pl  view on Meta::CPAN

#!/usr/bin/env perl
use 5.10.0;
use lib qw(lib);
use Moses::Declare;

$INC{'RT/Plugin.pm'}++;

plugin RT::Plugin {
    use Try::Tiny;
    use RT::Client::REST;

    has [qw(server user pass)] => (
        isa        => 'Str',