view release on metacpan or  search on metacpan

t/01-parse-config.t  view on Meta::CPAN

# Mock the bot store with known settings, then check we get the right info back.


# Fake bot storage; pretend to be the Store module, to some degree.
# Instantiated with a hashref of settings, stores then in the object, and
# returns them when asked for
package MockStore;
use strict;
sub new { 
    my ($class, $settings) = @_;
    return bless { settings => $settings } => $class; 
}
sub get {
    my ($self, $namespace, $key) = @_;
    return unless $namespace eq 'GitHub';
    return $self->{settings}{$key};
}


# Subclass to override fetching of config setting from store
package MockBot;