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

##</code><code>##

    use Group 'default_group'

##</code><code>##

sub import {
    my $default_group = $_[1];
    my $callpkg = caller(0);
    register_default_group($callpkg,$default_group);

    no strict 'refs';
    *{$callpkg."::groups"} = \&groups;
    use strict;