—

              
# $Header: /home/fergal/my/cvs/Test-Tester/lib/Test/Tester/CaptureRunner.pm,v 1.3 2003/03/05 01:07:55 fergal Exp $
use strict;
warn "Test::Tester::CaptureRunner is deprecated, see Test::Tester2\n";
package Test::Tester::CaptureRunner;
use Test::Tester::Capture;
require Exporter;
sub new {
    my $pkg = shift;
    my $self = bless {}, $pkg;
    return $self;
}
sub run_tests {
    my $self = shift;
    my $test = shift;
    capture()->reset;
    $self->{StartLevel} = $Test::Builder::Level;
    &$test();
}
sub get_results {
    my $self    = shift;
    my @results = capture()->details;
    my $start = $self->{StartLevel};
    foreach my $res (@results) {
        next if defined $res->{depth};
        my $depth = $res->{_depth} - $res->{_level} - $start - 3;
        $res->{depth} = $depth;
    }
    return @results;
}
sub get_premature {
    return capture()->premature;
}
sub capture {
    return Test::Tester::Capture->new;
}
__END__
HideShow 25 lines of Pod
=head1 NAME
Test::Tester::CaptureRunner - *DEPRECATED* Help testing test modules built with Test::Builder
=head1 DEPRECATED
See L<Test::Tester2> for a modern and maintained alternative.
=head1 DESCRIPTION
This stuff if needed to allow me to play with other ways of monitoring the
test results.
=head1 AUTHOR
Copyright 2003 by Fergal Daly <fergal@esatclear.ie>.
=head1 LICENSE
Under the same license as Perl itself
See http://www.perl.com/perl/misc/Artistic.html
=cut