Select Code to Download

    sub find {
        my $object = __PACKAGE__->retrieve_object($id);
        bless $object,$object->type->class

    use Group 'default_group'

sub import {
    my $default_group = $_[1];
...
    no strict 'refs';
    *{$callpkg."::groups"} = \&groups;
    use strict;