The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

MARKF / Tie-DataUUID-1.02 / t / 03wrongex.t 

            

              
1
2
3
4
5
6
7
8

              
#!/usr/bin/perl
use strict;
use Test::More tests => 1;
eval "use Tie::DataUUID qw(wombles)";
like $@, '/^"wombles" is not exported by the Tie::DataUUID module/', 'wrong exports break';