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