Select Code to Download

sub name {
    my $self = shift;
...
        croak "Unknown arguments to name()";
    }
}

sub name {
    my $self = shift;
...
    croak "Unknown arguments to name" if @_;
    return $self->{name};
}

sub name {
    my $self = shift;
...
    croak "Unknown arguments to name" if @_;
    return $self->{name};
}

sub name {
    @_ > 1 and croak "Too many arguments for name";
    my $self = shift;
    return @_ ? $self->{name} = shift : $self->{name};
}

sub name : lvalue { shift->{name} }