package Context;

my %versions = ();

# The returned hash will store for each plugin the complaints it registers.
sub new {
    my $class = shift;
    return bless {}, $class;
}

# This will be optional.
sub declareVersion {
    my $self = shift;
    my ($plugin, $version) = @_;

    $versions{$plugin} = $version;
}

# That's for our program
sub getVersion {
    shift;
    $versions{shift()}
}

# This is how the plugin will tell us what he thinks, as many
# times as it wants to.
sub addOpinion {
    my $self = shift;
    my ($plugin, $opinion) = @_;

    $self->{$plugin} = [] unless exists $self->{$plugin};
    push @{$self->{$plugin}}, $opinion;
}