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;