Manual

Reference

Modules

  • A • B • C • D • E
  • F • G • H • I • L
  • M • N • O • P • S
  • T • U • X

Tools

TAP::Parser::Source

Perl 5 version 12.2 documentation
Go to top
Show page index • Show recent pages
Recently read

TAP::Parser::Source

NAME

TAP::Parser::Source - Stream output from some source

VERSION

Version 3.17

SYNOPSIS

  1.   use TAP::Parser::Source;
  2.   my $source = TAP::Parser::Source->new;
  3.   my $stream = $source->source(['/usr/bin/ruby', 'mytest.rb'])->get_stream;

DESCRIPTION

Takes a command and hopefully returns a stream from it.

METHODS

Class Methods

new 

  1.  my $source = TAP::Parser::Source->new;

Returns a new TAP::Parser::Source object.

Instance Methods

source 

  1.  my $source = $source->source;
  2.  $source->source(['./some_prog some_test_file']);
  4.  # or
  5.  $source->source(['/usr/bin/ruby', 't/ruby_test.rb']);

Getter/setter for the source. The source should generally consist of an array reference of strings which, when executed via &IPC::Open3::open3, should return a filehandle which returns successive rows of TAP. croaks if it doesn't get an arrayref.

get_stream 

  1.  my $stream = $source->get_stream;

Returns a TAP::Parser::Iterator stream of the output generated by executing source . croak s if there was no command found.

Must be passed an object that implements a make_iterator method. Typically this is a TAP::Parser instance.

merge 

  1.   my $merge = $source->merge;

Sets or returns the flag that dictates whether STDOUT and STDERR are merged.

SUBCLASSING

Please see SUBCLASSING in TAP::Parser for a subclassing overview.

Example

  1.   package MyRubySource;
  3.   use strict;
  4.   use vars '@ISA';
  6.   use Carp qw( croak );
  7.   use TAP::Parser::Source;
  9.   @ISA = qw( TAP::Parser::Source );
  11.   # expect $source->(['mytest.rb', 'cmdline', 'args']);
  12.   sub source {
  13.     my ($self, $args) = @_;
  14.     my ($rb_file) = @$args;
  15.     croak("error: Ruby file '$rb_file' not found!") unless (-f $rb_file);
  16.     return $self->SUPER::source(['/usr/bin/ruby', @$args]);
  17.   }

SEE ALSO

TAP::Object, TAP::Parser, TAP::Parser::Source::Perl,

Page index