App-RabbitTail

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    - t
requires:
  AnyEvent: 0
  AnyEvent::RabbitMQ: 1.03
  Moose: 0
  Moose::Autobox: 0
  MooseX::Types: 0
  MooseX::Types::Path::Class: 0
  Net::RabbitFoot: 1.03
  Try::Tiny: 0
  namespace::autoclean: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: git://github.com/bobtfish/App-RabbitTail.git
version: 0.002

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;
use inc::Module::Install;
#use Module::Install::AuthorRequires;
#use Module::Install::AuthorTests;

name 'App-RabbitTail';
all_from 'lib/App/RabbitTail.pm';

requires 'Moose';
requires 'namespace::autoclean';
requires 'Net::RabbitFoot' => '1.03';
requires 'AnyEvent::RabbitMQ' => '1.03';
requires 'AnyEvent';
requires 'MooseX::Types::Path::Class';
requires 'MooseX::Types';
requires 'Try::Tiny';
requires 'Moose::Autobox';

test_requires 'Test::More' => '0.88';

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

package App::RabbitTail;
use Moose;
use Net::RabbitFoot 1.03;
use App::RabbitTail::FileTailer;
use AnyEvent;
use Data::Dumper;
use Moose::Autobox;
use MooseX::Types::Moose qw/ArrayRef Str Int/;
use Try::Tiny qw/ try catch /;
use namespace::autoclean;

our $VERSION = '0.002';
$VERSION = eval $VERSION;

with 'MooseX::Getopt';

has filename => (
    isa => ArrayRef[Str],
    is => 'ro',
    cmd_aliases => ['fn'],

lib/App/RabbitTail/FileTailer.pm  view on Meta::CPAN

package App::RabbitTail::FileTailer;
use Moose;
use AnyEvent;
use MooseX::Types::Moose qw/CodeRef Num/;
use MooseX::Types::Path::Class qw/File/;
use Coro::Handle;
use namespace::autoclean;

has fn => (
    isa => File,
    is => 'ro',
    required => 1,
    coerce => 1,
);

has fh => (
    is => 'ro',