AnyEvent-Proc

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

requires:
  AnyEvent: '0'
  AnyEvent::Handle: '0'
  AnyEvent::Util: '0'
  Carp: '0'
  Class::Load: '0'
  Exporter: '0'
  POSIX: '0'
  Scalar::Util: '0'
  Tie::Scalar: '0'
  Try::Tiny: '0'
  overload: '0'
  perl: '5.006'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://github.com/zurborg/libanyevent-proc-perl/issues
  homepage: https://github.com/zurborg/libanyevent-proc-perl
  repository: https://github.com/zurborg/libanyevent-proc-perl.git
version: '0.105'
x_contributors:

Makefile.PL  view on Meta::CPAN

  "PREREQ_PM" => {
    "AnyEvent" => 0,
    "AnyEvent::Handle" => 0,
    "AnyEvent::Util" => 0,
    "Carp" => 0,
    "Class::Load" => 0,
    "Exporter" => 0,
    "POSIX" => 0,
    "Scalar::Util" => 0,
    "Tie::Scalar" => 0,
    "Try::Tiny" => 0,
    "overload" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Env::Path" => 0,
    "IO::Pipe" => 0,
    "Test::Most" => 0
  },
  "VERSION" => "0.105",

Makefile.PL  view on Meta::CPAN

  "Carp" => 0,
  "Class::Load" => 0,
  "Env::Path" => 0,
  "Exporter" => 0,
  "ExtUtils::MakeMaker" => 0,
  "IO::Pipe" => 0,
  "POSIX" => 0,
  "Scalar::Util" => 0,
  "Test::Most" => 0,
  "Tie::Scalar" => 0,
  "Try::Tiny" => 0,
  "overload" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;

lib/AnyEvent/Proc.pm  view on Meta::CPAN

use strict;
use warnings;

package AnyEvent::Proc;

# ABSTRACT: Run external commands

use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::Util ();
use Try::Tiny;
use Class::Load;
use Exporter qw(import);
use Carp;
use POSIX;

our $VERSION = '0.105';    # VERSION

our @EXPORT_OK = qw(run run_cb reader writer);

sub _rpipe {

lib/AnyEvent/Proc.pm  view on Meta::CPAN

    shift->readline_cv->recv;
}

1;

package    # hidden
  AnyEvent::Proc::W;

use overload '""' => sub { shift->{fileno} };

use Try::Tiny;

sub A { shift->{w} }
sub B { shift->{r} }

sub finish {
    shift->A->destroy;
}

sub on_timeout {
    shift->A->on_rtimeout(pop);