[gitmo/MooseX-Singleton.git] / t / warnings_once.t

# test script for: https://rt.cpan.org/Ticket/Display.html?id=46086
use Test::More qw(no_plan);
use Test::NoWarnings;

BEGIN {
    package OnlyUsedOnce;
    use strict;
    use warnings;
    use MooseX::Singleton;
}

BEGIN { OnlyUsedOnce->initialize; }

my $s = OnlyUsedOnce->instance;
Commit	Line	Data
0f22810a	1	# test script for: https://rt.cpan.org/Ticket/Display.html?id=46086
	2	use Test::More qw(no_plan);
	3	use Test::NoWarnings;
	4
	5	BEGIN {
	6	package OnlyUsedOnce;
	7	use strict;
	8	use warnings;
	9	use MooseX::Singleton;
	10	}
	11
	12	BEGIN { OnlyUsedOnce->initialize; }
	13
	14	my $s = OnlyUsedOnce->instance;