1 files changed, 22 insertions, 0 deletions
diff --git a/t/lib/Test/SubExporter/GroupGenSubclass.pm b/t/lib/Test/SubExporter/GroupGenSubclass.pm
new file mode 100644
index 0000000..7e34c97
--- /dev/null
+++ b/t/lib/Test/SubExporter/GroupGenSubclass.pm
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+package Test::SubExporter::GroupGenSubclass;
+use base qw(Test::SubExporter::GroupGen);
+
+sub gen_group_by_name {
+  my ($class, $group, $arg, $collection) = @_;
+
+  my %given = (
+    class => $class,
+    group => $group,
+    arg   => $arg,
+    collection => $collection,
+  );
+
+  return {
+    baz => sub { return { name => 'baz-sc', %given }; },
+  };
+}
+
+"power overwhelming";