#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
use lib File::Spec->catdir($Bin, 'lib');
use Test::More tests => 1;
use Hook::Modular::Builder;
use parent 'Hook::Modular';
# Test that we can specify config via a scalar reference and hash reference.
# specifying the appropriate plugin namespace for this program saves you from
# having to specify it in every config file.
use constant PLUGIN_NAMESPACE => 'My::Test::Plugin';
sub run {
my $self = shift;
$self->SUPER::run(@_);
my %result;
$self->run_hook('output.print', { result => \%result });
is( $result{text},
"****this is some printer\n",
'Some::Printer output.print'
);
}
my $config = builder {
log_level 'error';
cache_base '/tmp/test-hook-modular';
enable 'Some::Printer',
indent => 4, indent_char => '*', text => 'this is some printer';
};
main->bootstrap(config => $config);