Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (18 sloc) 380 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
use Any::Moose();
$@ = 'Foo';
Any::Moose::any_moose();
is $@, 'Foo', 'any_moose() does not clear $@';
{
package X;
Any::Moose->import;
}
is $@, 'Foo', 'Any::Moose->import does not clear $@';
{
package X;
Any::Moose->unimport;
}
is $@, 'Foo', 'Any::Moose->unimport does not clear $@';
Jump to Line
Something went wrong with that request. Please try again.