sub id {
    my $self  = shift;
    my $class = ref $self;
    no strict 'refs';
    return ${'main::'."$class".'::ID'};
}