On Sat Feb 13 16:21:50 2016, lloyd.fo...@gmail.com wrote:
> BEGIN require Test <&ok>;
>
> Lexical with name '&ok' does not exist in this frame
Note that this works:
> BEGIN { require Test "&ok"}
(Test)
--
Will "Coke" Coleda
# New Ticket Created by Lloyd Fournier
# Please include the string: [perl #127538]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=127538 >
BEGIN require Test <&ok>;
Lexical with name '&ok' does not exist in this frame
use Test::More tests => 1;
use Test::ok;
package Test::ok;
use Test::Builder;
my $TB = Test::Builder->new;
sub import {
my $caller = caller;
no warnings 'redefine';
*{$caller.'::ok'} = \&ok;
}
sub ok {
my @args = @_;
# Run all sub references
