The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package SmokeRunner::Multi::Reporter;
BEGIN {
  $SmokeRunner::Multi::Reporter::AUTHORITY = 'cpan:YANICK';
}
{
  $SmokeRunner::Multi::Reporter::VERSION = '0.19';
}
#ABSTRACT: Base class for reporting on smoke tests

use strict;
use warnings;

use base 'Class::Accessor::Fast';
__PACKAGE__->mk_ro_accessors( 'runner' );

use SmokeRunner::Multi::Validate qw( validate RUNNER_TYPE TEST_SET_TYPE );


{
    my $spec = { runner => RUNNER_TYPE,
               };

    sub new {
        my $class = shift;
        my %p     = validate( @_, $spec );

        return bless \%p, $class;
    }
}

sub report {
    die "The report() method must be overridden in a subclass.\n"
}


1;

__END__

=pod

=head1 NAME

SmokeRunner::Multi::Reporter - Base class for reporting on smoke tests

=head1 VERSION

version 0.19

=head1 SYNOPSIS

  use base 'SmokeRunner::Multi::Reporter';

  sub reporter {
      ...
  }

=head1 DESCRIPTION

This class is the parent class for smoke test reporters. It provides a
constructor, but subclasses are expected to provide a C<report()>
method.

=head1 METHODS

This class provides the following methods:

=head2 SmokeRunner::Multi::Reporter->new(...)

This method creates a new reporter object. It requires one parameter:

=over 4

=item * runner

A C<SmokeRunner::Multi::Runner> object. You should already have called
C<< $runner->run_tests() >> on this object.

=back

=head2 $reporter->runner()

Returns the runner object passed to the constructor.

=head2 $reporter->report()

This method should be implemented by subclasses.

=head1 AUTHOR

Dave Rolsky, <autarch@urth.org>

=head1 BUGS

Please report any bugs or feature requests to
C<bug-smokerunner-multi@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 COPYRIGHT & LICENSE

Copyright 2007 LiveText, Inc., All Rights Reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included
with this module.

=head1 AUTHORS

=over 4

=item *

Dave Rolsky <autarch@urth.org>

=item *

Yanick Champoux <yanick@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2007 by LiveText, Inc..

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut