package Module::New::ForTest::Context;
use strict;
use warnings;
use base qw( Module::New::Context );
use Module::New::ForTest::LogCache;
sub new {
my $self = shift->SUPER::new('Module::New::ForTest');
$self->logger('Module::New::ForTest::LogCache');
$self;
}
sub has_logged {
my ($self, $regex) = @_;
while ( my $log = Module::New::ForTest::LogCache->next ) {
return 1 if $log =~ /$regex/;
}
return;
}
sub dump_logs {
while ( my $log = Module::New::ForTest::LogCache->next ) {
warn $log;
}
}
1;