Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: bdd2092770
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (18 sloc) 0.38 kB
#!/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.