projects
/
gitmo/MooseX-Singleton.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
696cbe57f47487614b470f7888f381831480dcde
[gitmo/MooseX-Singleton.git]
/
t
/
warnings_once.t
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;