1use strict;
2use warnings;
3package Dirty;
4
5use ExporterModule qw/stuff/;
6
7sub method { }
8
9sub callstuff { stuff(); 'called stuff' }
10
11our $CAN;
12use constant CAN => [ qw(stuff method callstuff) ];
13use constant CANT => [ ];
14use constant DIRTY => [ qw(stuff) ];
15
161;
17