Select Code to Download

sub my_uniq {
    my $self   = shift;
    my @result = uniq @{ $self->list };
    wantarray ? @result : scalar @result;
}

sub my_uniq {
    my $self   = shift;

    return uniq @{ $self->list };
}

# class method
sub get_list {
...

    return @{ $self->list() };
}

# client code - variant a
# (client wants values and count)
...
# client code - variant b
# (client just wants the count)
my $uniq_count = scalar uniq $obj->get_list();