Fennec::Listener::TB::Handle - The handler used to forward test results to the

Fennec documentation Contained in the Fennec distribution.

Index

Code Index:

NAME

Top

Fennec::Listener::TB::Handle - The handler used to forward test results to the reporter process.

DESCRIPTION

Top

The handler used to forward test results to the reporter process.

API STABILITY

Top

Fennec versions below 1.000 were considered experimental, and the API was subject to change. As of version 1.0 the API is considered stabalized. New versions may add functionality, but not remove or significantly alter existing functionality.

AUTHORS

Top

Chad Granum exodist7@gmail.com

COPYRIGHT

Top

Copyright (C) 2011 Chad Granum

Fennec is free software; Standard perl licence.

Fennec is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the license for more details.

Fennec documentation Contained in the Fennec distribution. 
package Fennec::Listener::TB::Handle;
use strict;
use warnings;

use Fennec::Util qw/accessors get_test_call/;

accessors qw/name out/;

sub TIEHANDLE {
    my $class = shift;
    my ( $name, $out ) = @_;
    return bless( { name => $name, out => $out }, $class );
}

sub PRINT {
    my $self = shift;
    my @data = @_;
    my @call = get_test_call();
    my $out  = $self->out;

    for my $output ( @_ ) {
        print $out join( "\0", $$, $self->name, $call[0], $call[1], $call[2], $_ ) . "\n"
            for split( /[\n\r]+/, $output );
    }
}

1;

__END__