sub FETCH {
    my $r = shift;

    print "Checking for pause ...";

    return $r->{subref} = $r->{subref};
}