Commit | Line | Data |
---|---|---|
6d823d74 | 1 | package A::Junk; |
2 | ||
3 | use Sub::Exporter::Progressive -setup => { | |
47825557 | 4 | exports => [qw(junk1 junk2 junk3)], |
6d823d74 | 5 | groups => { |
6 | default => ['junk2'], | |
47825557 | 7 | other => ['junk3'], |
6d823d74 | 8 | }, |
9 | }; | |
10 | ||
11 | sub junk1 { 1 } | |
12 | sub junk2 { 1 } | |
47825557 | 13 | sub junk3 { 1 } |
6d823d74 | 14 | |
15 | 1; |