Mon May 07 16:30:03 2012ANDK [...] cpan.org - Ticket created
CC:
MSCHWERN [...] cpan.org
Subject:
Fails with Test::More 1.005000_005
Can't locate object method "handle_result" via package "TB2::OnlyOnePlan"
Sample fail report: http://www.cpantesters.org/cpan/report/21465613
CC'd to Schwern with the plea for comment.
Thanks && Regards,
Sun May 13 13:54:25 2012mschwern [...] cpan.org - Correspondence added
You have this in your test.
local *UNIVERSAL::can = sub { 1 };
Can't break the language and then expect the language to work. :)
Simplest work around would be to put the broken can() into its own block
with just the code it effects.
{
{
no warnings 'redefine';
local *UNIVERSAL::can = sub { 1 };
eval <<' END';
package Can::Can;
use Role::Tiny 'with';
with 'A::NonExistent::Role';
END
}
my $error = $@ || '';
like $error, qr{^Can't locate A/NonExistent/Role.pm}, ...;
}
Sun May 13 13:54:28 2012The RT System itself - Status changed from 'new' to 'open'