sub FETCH {
    my $self = shift @_;
    my $work_around = sub {
        my $tgt = shift @_;
        print "Checking for pause\n";
        return $self->{subref}->($tgt);
    };
    return $work_around;
}