sub unique {
        my $self=shift;
        my %tmp;
        map { %tmp{$_}=1 } @_;
        return keys %tmp;
        }