#!/usr/bin/perl
use strict;
use warnings;

package Harness;

sub new {
    my ($class, %params) = @_;
    my $self = bless \%params, $class;
    return $self;
}


sub register {
    my ($self, $plugin) = @_;

    push @{$self->{plugins}}, $plugin;
}


sub run {
    my ($self) = @_;
    my @results;

    for my $test (@{$self->{plugins}}) {
        print "Running ", $test->name(), "\n";
        push @results, $test->run($self);
    }

    print "$_\n" for @results;
}


package PluginBase;

sub new {
    my ($class, %params) = @_;
    my $self = bless \%params, $class;
    return $self;
}

sub name {
    my ($self) = @_;

    return ref $self;
}


sub run {
    my ($self) = @_;

    return "Skipped " . $self->name() . " test - no run override provided";
}


package WinkTest;

push @WinkTest::ISA, 'PluginBase';

sub run {
    my ($self) = @_;
    my $type = ref $self;

    return "Wink, wink. Wink test passed OK";
}


package BlinkTest;

push @BlinkTest::ISA, 'PluginBase';


package main;

my $test = Harness->new();

$test->register (WinkTest->new());
$test->register (BlinkTest->new());

$test->run();

##</code><code>##

Running WinkTest
Running BlinkTest
Wink, wink. Wink test passed OK
Skipped BlinkTest test - no run override provided