fix a critic test

[gitmo/MooseX-Daemonize.git] / examples / moose_room.pl

diff --git a/examples/moose_room.pl b/examples/moose_room.pl
new file mode 100644 (file)
index 0000000..720013a
--- /dev/null
+++ b/examples/moose_room.pl
@@ -0,0 +1,120 @@
+package MooseRoom;
+use strict;
+our $VERSION = '0.0.1';
+use Moose;
+use POE qw(Component::Server::IRC);
+
+with qw(MooseX::Getopt);
+with qw(MooseX::Daemonize);
+
+has servername => (
+    isa     => 'Str',
+    is      => 'ro',
+    default => sub { 'moose.room' },
+);
+
+has nicklen => (
+    isa     => 'Int',
+    is      => 'ro',
+    default => sub { 15 },
+);
+
+has network => (
+    isa     => 'Str',
+    is      => 'ro',
+    default => sub { 'MooseRoom' },
+);
+
+has ircd => (
+    isa     => 'POE::Component::Server::IRC',
+    is      => 'ro',
+    lazy    => 1,
+    default => sub {
+        POE::Component::Server::IRC->spawn(
+            {
+                servername => $_[0]->servername,
+                nicklen    => $_[0]->nicklen,
+                network
+            }
+        );
+    },
+);
+
+has operators => (
+    isa        => 'ArrayRef',
+    is         => 'ro',
+    auto_deref => 1,
+    default    => sub {
+        [ { username => 'perigrin', password => 'hobbit' }, ];
+    },
+);
+
+sub BUILD {
+    my ($self) = @_;
+    POE::Session->create( object_states => [ $self => [qw(_start _default)], ],
+    );
+
+}
+
+sub _start {
+    my ( $self, $kernel, $heap ) = @_[ OBJECT, KERNEL, HEAP ];
+    $self->ircd->yield('register');
+
+    # Anyone connecting from the loopback gets spoofed hostname
+    $self->ircd->add_auth(
+        mask     => '*@localhost',
+        spoof    => $self->hostname,
+        no_tilde => 1
+    );
+
+    # We have to add an auth as we have specified one above.
+    $self->ircd->add_auth( mask => '*@*' );
+
+    # Start a listener on the 'standard' IRC port.
+    $self->ircd->add_listener( port => 6667 );
+
+    # Add an operator who can connect from localhost
+    $self->ircd->add_operator($_) for $self->operators;
+    return;
+}
+
+sub _default {
+    my ( $event, $args ) = @_[ ARG0 .. $#_ ];
+    print STDOUT "$event: ";
+    foreach (@$args) {
+      SWITCH: {
+            if ( ref($_) eq 'ARRAY' ) {
+                print STDOUT "[", join( ", ", @$_ ), "] ";
+                last SWITCH;
+            }
+            if ( ref($_) eq 'HASH' ) {
+                print STDOUT "{", join( ", ", %$_ ), "} ";
+                last SWITCH;
+            }
+            print STDOUT "'$_' ";
+        }
+    }
+    print STDOUT "\n";
+    return 0;    # Don't handle signals.
+}
+
+before new  => sub { POE::Kernel->run(); };
+after start => sub { POE::Kernel->run(); };
+
+unless ( caller() ) {
+    require Cwd;
+    my $cmd = lc $ARGV[-1];
+    my $app = MooseRoom->new_with_options( pidbase => Cwd::cwd() );
+    print STDERR "trying to $cmd server\n";
+    if ( $cmd eq 'start' ) {
+        print STDERR qq{
+        pidfile: @{ [ $app->pidfile ] }
+        port:    @{ [ $app->Port ] }
+        };
+    }
+    $app->$cmd;
+}
+
+no Moose;
+1;    # Magic true value required at end of module
+__END__