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

# test script for: https://rt.cpan.org/Ticket/Display.html?id=46086
use strict;
use warnings;

use Test::More qw(no_plan);
use Test::Requires {
    'Test::NoWarnings' => 0.01
};

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
8769c3ba	2	use strict;
	3	use warnings;
	4
0f22810a	5	use Test::More qw(no_plan);
8769c3ba	6	use Test::Requires {
0d83a3c9	7	'Test::NoWarnings' => 0.01
8769c3ba	8	};
0f22810a	9
	10	BEGIN {
	11	package OnlyUsedOnce;
	12	use strict;
	13	use warnings;
	14	use MooseX::Singleton;
	15	}
	16
	17	BEGIN { OnlyUsedOnce->initialize; }
	18
	19	my $s = OnlyUsedOnce->instance;