return $self;
}
-# ----------------------------------------------------------------------
sub extra {
=pod
return wantarray ? %$extra : $extra;
}
-# ----------------------------------------------------------------------
sub remove_extra {
=head2 remove_extra
}
}
-# ----------------------------------------------------------------------
sub equals {
=pod
return 1;
}
-# ----------------------------------------------------------------------
sub _compare_objects {
my $self = shift;
my $obj1 = shift;
return $result;
}
-#=============================================================================
-
1;
=pod